hallo,
habe das Problem, dass im Textfile ein Zeilenumbruch ausführt wird??? Warum???
Liegt es an CommaText?
Delphi-Quellcode:
procedure SaveStringGridToFile(StringGrid: TStringGrid; const FileName: String);
var
F: TStringList;
i: Integer;
begin
F := TStringList.Create;
try
F.Add(IntToStr(StringGrid.RowCount));
F.Add(IntToStr(StringGrid.ColCount));
for i := 0 to (StringGrid.RowCount - 1) do
F.Add(StringGrid.Rows[i].CommaText);
F.SaveToFile('Test.dat');
finally
F.Free;
end;
end;
wie bekomme ich die Hochkommas rausgefiltert?
Delphi-Quellcode:
procedure TForm1.GlobalExceptionHandler(Sender: TObject; E:
Exception);
var
i: integer;
s:
String;
begin
StringGrid2.RowCount := StringGrid2.RowCount + 1;
for i := StringGrid2.RowCount - 1
downto StringGrid2.FixedRows + 1
do
StringGrid2.Rows [i].Assign (StringGrid2.Rows [i - 1]);
StringGrid2.Rows [StringGrid2.FixedRows].Clear;
StringGrid2.Cells [1,1] := FormatDateTime ('
dd.mm.yyyy', Now);
StringGrid2.Cells [2,1] := FormatDateTime ('
hh:nn:ss', Now);
StringGrid2.Cells [3,1] := '
eGrid Server [Error]';
s:= E.
Message;
s := StringReplace(s,'
´','
',[rfReplaceAll]);
StringGrid2.Cells [4,1] := s;
end;