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...