Einzelnen Beitrag anzeigen

Bedrock

Registriert seit: 11. Apr 2003
20 Beiträge
 
#5
  Alt 1. Jun 2003, 17:33
etwa so??

Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var d:textfile;
var i:integer;
var zeile:string;
begin
AssignFile(d, 'c:\sms\sat.txt');
  Readln(d, zeile);
  Table2.Append;
  { angenommen du hast 10 Felder }
  for i := 1 to 10 do
    Table2.Fields[i-1].AsString := (zeile);
  Table2.Post;
end;
ZerlegeZeile(zeile, i);??
versteh ich leider auch nicht
  Mit Zitat antworten Zitat