hallo,
beim abspeichern (siehe Bild) wird unter" Event" immer eine Leerzeile eingefügt warum?
Datum,Zeit usw. wird richtig gespeichert!
Delphi-Quellcode:
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
// Write number of Columns/Rows
Writeln(f, ColCount);
Writeln(f, RowCount);
// loop through cells
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;
Delphi-Quellcode:
DeleteFile(ExtractFilePath(ParamStr(0)) + 'StringGrid.txt');
SaveStringGrid(StringGrid1, ExtractFilePath(ParamStr(0)) + 'StringGrid.txt');
Zitat:
Event
Socket 192.168.0.16 ADMOESOFT --> #3#
Socket 192.168.0.16 ADMOESOFT --> #1#[