Logdatei in StringGrid laden

[SaFu]

Hi Männers

Wie es schon in der Überschrift steht versuche ich eine Logdatei in ein StringGrid zu laden, die Spalten sind fest auf 20 und die Zeilen können variiren. Da habe ich schon mein 1 Problem, wie Realisiere ich das wenn ich die Datei lade das, das StringGrid Automatisch sich anpasst.

Die andere Frage ist wie bekomme ich die Überschriften in der Logdatei in die Fixed.Rows auch zur Laufzeit.

Und naturlich die wichtigste Frage wie bekomme ich überhaupt die Datei in das StringGrid und auch noch richtig Formatiert

Die Datei hänge ich mal an.

Danke euch schonmal

Gruß sascha

[marabu]

Hallo Sascha,

Zitat von fuknersascha:

... Die Datei hänge ich mal an. ...

weißt du schon wann?

Freundliche Grüße

[mkinzler]

Wäre da nicht ein Memo eher geeignet

[SaFu]

ah deswegen gings nicht .log ist verboten(einfach umbennenen in .log

[raiguen]

*angestrengt gugg und such* ja wo ist sie denn, die angehängte Datei

zur ersten Frage:
Anzahl der Zeilen der darzstellenden Logdatei ermitteln und darauf hin die Zeilen des StringGrid einstellen:
StringGrid1.RowCount := AnzahlFesteZeilen + AnzahlDerLogdateiZeilen; zweite Frage:
Auch die (per Desingner oder per Code ) eingestellten FixedRows können direkt per Index angesprochen werden:
StringGrid1.Rows[0] := ... // erste feste Zeile dritte Frage, 1.Teil:
Logdatei zeilenweise auslesen und je nach Aufbau der Zeile diese entsprechend splitten
gesplitte ZeilenFragmente in die entsprechenden Zellen schreiben

Delphi-Quellcode:

...
while not Logdatei.Eof do
begin
  Zeile auslesen;
  Zeile splitten;
  StringGrid1.Cells[Spalte, Zeile] := TeilInhalt der gespliiten Zeile
  Zeile := Zeile +1; //Zeilennummer erhöhen
...
end;

dritte Frage, 2.Teil:
präzisiere [quote] richtig Formatiert [/qoute]

Gruss Rainer
[EDIT] kaum das man schreibt und noch keine Antworten da sind, schon ist der rote kasten da*grr*[/EDIT]

[mkinzler]

Gibt es auch Zeilen, in den alle Felder Werte haben?

[Larsi]

Du könntest auch die gesamte Komponente abspeichern:

Speichern:

Delphi-Quellcode:

FileStream:= TFileStream.Create(extractfilepath(Application.ExeName)+'data.txt', fmCreate);
  try
    FileStream.WriteComponent(Stringgrid1);
  finally
    FileStream.Free;
  end;

Laden:

Delphi-Quellcode:

FileStream:= TFileStream.Create(extractfilepath(Application.ExeName)+'data.txt', fmopenread);
  try
    FileStream.WriteComponent(Stringgrid1);
  finally
    FileStream.Free;
  end;

MFG Lars Wiltfang

[SaFu]

Zitat von mkinzler:

Gibt es auch Zeilen, in den alle Felder Werte haben?

ja alle Zeile haben Werte für die Felder (kann Sie aber leider nicht anhängen)

Das mit dem FileStrem habe ich schon versucht geht leider nicht.

Das mit dem Formatieren meine ich das auch alles richtig untereinander steht und nicht verschoben ist

[mkinzler]

Deshalb musst du die Zeilen auch aufspalten

[SaFu]

Zitat von mkinzler:

Deshalb musst du die Zeilen auch aufspalten

Wie meinst du das
Sorry das ich mich mal wieder so blöd anstelle aber hab das noch nie gemacht