Genau!
Wie gesagt kein Fenster popped auf, und alles ist wunderbar mit Excel zu sichten.
Hier noch schnell ein Beispielcode wie man auch einen Logfile Betrachter in Delphi dafuer realisieren kann:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TextFile;
X, Y: Integer;
TextZeile: String;
Zeile: TStringList;
Begin
If OpenDialog1.Execute And FileExists(OpenDialog1.FileName) Then
Begin
AssignFile(Stream, OpenDialog1.FileName);
Reset(Stream);
Try
{Stringgrid löschen}
StringGrid1.RowCount := 1;
StringGrid1.ColCount := 1;
StringGrid1.Cells[0,0] := '';
Zeile := TStringList.Create;
Try
Zeile.Delimiter := ';';
Y := 0;
While (Not EOF(Stream)) Do
Begin
Readln(Stream, TextZeile);
Zeile.DelimitedText := TextZeile;
StringGrid1.RowCount := Y + 1;
If StringGrid1.ColCount < Zeile.Count Then
StringGrid1.ColCount := Zeile.Count;
For X := 0 To Zeile.Count - 1 Do
Begin
StringGrid1.Cells[X, Y] := Zeile[X];
End;
Inc(Y);
End;
Finally
Zeile.Free;
End;
Finally
CloseFile(Stream);
End;
End;
End;
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)