StringGrid

[Alterauge]

Hallo,

möchte gerne in einem StringGrid .txt Dateien darstellen?
Im Ordner C:\Log, liegen Zahlereiche .txt Logdateien.
Diese möchte ich im StringGrid darstellen und die .txt öffnen.

Um das StringGrid aktuell zu halten, würde ich es gerne einen Timer einsetzen.

Timer1
begin
???????????????????????????????
end;

Wer hat eine Idee?

[Perlsau]

Zitat:

Zitat von Alterauge (Beitrag 1175165)

Wer hat eine Idee?

Gegenfrage: Wo liegt das Problem?

[Gollum]

Hallo,

gugst Du hier Textdatei (txt) in Stringgrid einlesen.

[Alterauge]

Hallo,

finde aber nur etwas, um eine Fixe TXT Datei zu laden!
Habe aber zum Beispiel 100 TXT Dateien die ich ins Stringgrid laden möchte.
Das ich anschließen durch einen doppelklick im StringGrid die Datei öffnen kann.

[Bummi]

Delphi-Quellcode:

Procedure SaveStringGrid(sg:TStringgrid;const fn:String);
const
 C_ZBr=#13#10;
 C_Tab=#9;
var
  Y,X:Integer;
  s:String;
  sl:TStringlist;
 Function GetDelim:String;
  begin
    if x < (sg.Rows[Y].Count - 1) then Result := C_Tab else Result := C_ZBr;
  end;
begin
  for Y := 0 to sg.RowCount -1 do
     begin
     For x := 0 to sg.Rows[Y].Count - 1 do s := s + sg.Rows[Y][X] + GetDelim;
     end;
  sl:=TStringlist.Create;
  try
    sl.Text := s;
    sl.SaveToFile(fn);
  finally
    sl.Free;
  end;
end;


Procedure LoadStringGrid(sg:TStringgrid;const fn:String);
const
 C_ZBr=#13#10;
 C_Tab=#9;
var
  sl:TStringList;
  y,x:Integer;
begin
  sl:=TStringlist.Create;
  try
    sl.LoadFromfile(fn);
    sg.RowCount := sl.Count;
    for y := 0 to sl.Count -1 do
        begin
           sg.Rows[y].Text := StringReplace(sl[y],C_Tab,C_ZBr,[rfReplaceAll]);
        end;
  finally
    sl.Free;
  end;
end;

[Alterauge]

Hast Recht, dass Problem liegt zwischen den Ohren!

Verstehe den Quelltext nicht so ganz!
Möchte nur TXT Pfade hochladen!

Hier ein Beispiel wie es im StringGrid aussehen soll:

1. / 2012-07-18_10-36-51.txt / öffnen
2. / 2012-07-18_10-37-23.txt / öffnen

[himitsu]

Möchtest du nur die Dateinamen im Grid, oder die Inhalte aller Dateien hintereinander?

PS: Das schon erwähnte LoadStringGrid läd den Text und hängt ihn an das Grid ... das kann man beliebig wiederhole, solange man den Grid-Inhalt nicht entleert.

Zitat:

Zitat von Perlsau (Beitrag 1175166)

Gegenfrage: Wo liegt das Problem?

Dem total aussagefähigen und das Problem halbwegs beschreibenden Titel konnte ich auch nichts entnehmen. :angle:

[Alterauge]

Hallo,
nur die Dateinamen im Grid!
Und durch einen doppelklick in der Zeile soll sich die Datei öffnen!

Gruß Andre

[himitsu]

Indem du z.B. RowCount erhöhst und Cells entsprechend mit den Dateinamen befüllst.
Und im OnClick, OnCellClick oder wie auch immer, öffnest du dann die Datei.

Dann stimmt aber deine Beschreibung nicht ganz.

Zitat:

Zitat von Alterauge (Beitrag 1175173)

Habe aber zum Beispiel 100 TXT Dateien die ich ins Stringgrid laden möchte.

Dateien (Inhalt) <> Dateinamen

[Alterauge]

Stimmt! Dateinamen hochladen!

Wie könnte sowas im Quelltextformat aussehen?

Wenn ich über einen Timer das StringGrid aktuell halten möchte?