Logdatei in StringGrid laden

[marabu]

Hallo Sascha,

dein Logfile ist ein Tab Delimited Textfile:

Delphi-Quellcode:

procedure ShowLog(const fn: TFileName; sg: TStringGrid; delimiter: Char = #9);
var
  log: TextFile;
  line: string;
begin
  AssignFile(log, fn);
  Reset(log);
  with sg do
  begin
    RowCount := 1;
    while not Eof(log) do
    begin
      ReadLn(log, line);
      Rows[Pred(RowCount)].Text := StringReplace(line, delimiter, sLineBreak, [rfReplaceAll]);
      RowCount := RowCount + 1;
    end;
    FixedRows := 1;
  end;
  CloseFile(log);
end;

Getippt und nicht getestet.

Freundliche Grüße

[SaFu]

Zitat:

Zitat von marabu

Hallo Sascha,

dein Logfile ist ein Tab Delimited Textfile:

Was sagt mir das wo bekomme ich sowas raus

ich komme mit diesen ganzen Antorten irgenwie nicht weiter.

Z.B mit dem anpassen der Zeilen dazu muss doch erst die Datei Formatiert weden um die richtige Zeilen anzahl heraus zu bekommen oder??

[SaFu]

Ok Sorry nicht schlagen es Funzt doch aber kann mir das einer mit dieser

Tab Delimited Textfile:

noch erklären nur abtippen und nicht verstehn ist blöd

[mkinzler]

Zitat:

Was sagt mir das wo bekomme ich sowas raus

Na die Felder sind durch Tab getrennt.

Zitat:

Z.B mit dem anpassen der Zeilen dazu muss doch erst die Datei Formatiert weden um die richtige Zeilen anzahl heraus zu bekommen oder??

Nein, weil die Zeilenanzahl ja gleich beliebt.
Du musst Zeile für Zeile durchgehen, diese abhand des Trenner auf trennen (explode, StringListe) und dann darstellen

[marabu]

Sascha,

Zitat:

Zitat von fuknersascha

... aber kann mir das einer mit dieser Tab Delimited Textfile noch erklären - nur abtippen und nicht verstehn ist blöd

das gibt es nur eine einzige Zeile in meinem Beispiel, über die du nachdenken musst:

Delphi-Quellcode:

// ...
Rows[Pred(RowCount)].Text := StringReplace(line, delimiter, sLineBreak, [rfReplaceAll]);
// ...

Der Text einer Row[] enthält die Spaltenwerte als einzelne Zeilen - und nimmt sie auch so auf. Aber das hast du inzwischen bestimmt schon selbst erkannt.

Freundliche Grüße

[SaFu]

So einigermaßen hab ich verstanden.

! Frage noch kann man die Cellenbreite auch Automatisch anpassen lassen also so lang wie die längstebreite in der Spalte ich denke ich habe schonmal einen Code hier gesehen aber ich find den nicht mehr

[DeddyH]

Mal für eine Spalte:
- Breite auf 0 setzen
- beim zeilenweisen Einfügen Canvas.TextWidth mit aktueller Breite vergleichen
- wenn größer, Breite neu setzen

Das Ganze kannst Du auch in einem Array für alle Spalten machen, ist ja immer dasselbe Prinzip.

[marabu]

Hallo,

Zitat:

Zitat von DeddyH

... wenn größer, Breite neu setzen ...

eventuell ist es besser, erstmal nur die maximale Textbreite einer Spalte zu ermitteln und die Spaltenbreite dann zum Schluß zu setzen.

Freundliche Grüße

[DeddyH]

Mit Breite war eigentlich eine Variable zur Ermittlung der aktuellen maximalen Breite gemeint, aber das ging aus meiner Beschreibung nicht eindeutig hervor, muss ich zu meiner Schande zugeben.

[SaFu]

meint ihr sowas

Delphi-Quellcode:

StringGrid1.DefaultCol.Widht:= StringGrid1.Canvas.TextWidth(zellen Position);

und das alles in eine schleife gelegt