Textdatei einlesen u. drucken

[Benedikt]

Also sieh dir das mal an hier:

Delphi-Quellcode:

procedure TForm1.DruckenClick(Sender: TObject); 
var 
  sl: TStrings; 
  tf: TextFile; 
  s: string; 
begin 
  sl := TStringList.Create; 
  sl.StringReplace( s, '|', ',', rfReplaceAll); 
  AssignFile('posts.ini', tf); 
  Reset( tf); 
  while not eof( tf) do 
  begin 
    ReadLn( tf, s); 
    sl.StringReplace( s, '|', ',', rfReplaceAll) := s; 
  end; 
  CloseFile(tf); 

    for i := 0 to sl.Count do 
    begin 
      StringGrid.Cells[i,j] := sl.Strings[i] 
    end; 
    inc(j); 

    griddruck(stringgrid,0,0,1); 


end;

Kein Wunder das davon nichts geht? Da würden Fehlermeldungen wegen Listen-Index kommen, StringReplace ist keine Untermethode von TStringList und zudem Überflüssig, und auch sonst ist das etwas umständlich meiner Meinung nach...