Es soll also auf Doppelklick eines Symbols der Inhalt der jeweiligen TXT im StringGrid angezeigt werden.
http://img510.imageshack.us/img510/5...nnt1oj4.th.jpg
Doch wie bekomme ich den Selektierten Dateinamen in das StringGrid?
Delphi-Quellcode:
//TxT Datei öffnen
procedure TForm3.FormCreate(Sender: TObject);
var Datei: Textfile;
ZeileIndex, SpalteIndex: integer;
Zeile: string;
begin
//ShowMessage(ExtractFilePath(ParamStr(0))+'DATEN\');
assignfile(Datei, ExtractFilePath(ParamStr(0))+'DATEN\'+****HIER DATEINAME DES LISTVIEW ITEM****);
reset(Datei);
ZeileIndex:=0;
while not EoF(Datei) do
begin
readln(Datei, Zeile);
SpalteIndex:=0;
while pos(chr(9), Zeile) <> 0 do
begin
sgInhalt.Cells[SpalteIndex, ZeileIndex]:=copy(Zeile ,1 ,pos(chr(9), Zeile)-1);
delete(Zeile, 1, pos(chr(9), Zeile));
inc(SpalteIndex);
end;
sgInhalt.Cells[SpalteIndex, ZeileIndex]:=Zeile;
inc(ZeileIndex);
//Tabelle automatisch um 1 Zeile erhöhen
sgInhalt.RowCount:=sgInhalt.RowCount+1;
end;
CloseFile(Datei);
//letzte Zeile ist zuviel -> überstehende Zeile Löschen
sgInhalt.RowCount:=sgInhalt.RowCount-1;
end;