Einzelnen Beitrag anzeigen

Benutzerbild von Mackhack
Mackhack

Registriert seit: 29. Nov 2003
Ort: San Diego, CA/USA
1.446 Beiträge
 
Delphi 2006 Architect
 
#9

Re: Wer war vor mir am System angemeldet?

  Alt 1. Jul 2007, 18:45
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)
  Mit Zitat antworten Zitat