Új hozzászólás Aktív témák

• #1678 Prego senior tag seepheerd #1677

  Új Válasz 2009-04-04 13:17:55 #1678

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Prego

  senior tag

  válasz seepheerd #1677 üzenetére

  Ha a vesszővel elválasztott rekordok beolvasása okoznak gondot:

  type konyv = record
  szerzo : string;
  nev : string;
  ar : word;
  end;

  while not eof(f) do
  begin
  inc(i);
  readln(f,s); //beolvassuk s segésztringbe az aktuális sort
  t[i].szerzo := copy(s,1,pos(',',s)-1); //a pos fv. megmutatja hogy hányadik bötű a ,
  delete(s,1,pos(',',s));
  t[i].nev := copy(s,1,pos(',',s)-1);
  delete(s,1,pos(',',s));
  t[i].ar := strtoint(s);
  end;
  closefile(f);

Új hozzászólás Aktív témák