Textdatei einlesen u. drucken

[Benedikt]

Hi,

ich mein ja nur mal so, aber die Funktion die du da oben zum Einlesen der Datei in dein StringGrid benutzt, ist ja nicht sooo das wahre...

Delphi-Quellcode:

procedure TForm1.DruckenClick(Sender: TObject); 
var
  SlFile: TStringList;
  SlLine: TStringList;
  i: Integer;
  j: Integer;
begin
  SlFile:=TStringList.Create;
  SlLine:=TStringList.Create;
  SlFile.LoadFromFile('pfad zu deiner datei');

  for i:=0 to SlFile.Count-1 do
  begin
        SlLine.Clear;
        SlLine.Delimiter:='|';
        SlLine.DelimitedText:=SlFile[i];

        for j:=0 to SlLine.Count-1 do
                StringGrid1.Cells[j, i]:=SlLine.Strings[j];
  end;

  //hier könntest du jetzt die GridDruck-Prozedur aufrufen.

  FreeAndNil(SlFile);
  FreeAndNil(SlLine);
end;