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

• #1680 Prego senior tag seepheerd #1679

  Új Válasz 2009-04-06 13:33:19 #1680

  Ú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 #1679 üzenetére

  procedure TForm1.Hozzrs1Click(Sender: TObject);
  begin
  Assignfile(f,'c:\Temp\adat.txt');
  append(f);
  seek(f,Filesize(f)); ///evvel megyünk a szöveges fájl végére ....
  Write(f,Eidt1 text+' '+Edit2.text);
  Closefile(f);
  end;

  Hát ezt a szűrést konkrétan nem értem, de nem is a szöveges fájlkezelés témakörbe tartozik ....

• #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