Danke!
Also nun zu der 2. Sache. Den Inhalt der TXT's ins StringGrid bekommen!
So rufe ich vom Hauptformular das neue Formular mit den StringGrid auf:
Delphi-Quellcode:
//Inhalt in StringGrid laden
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
try form3.show;
except ShowMessage('Keine Datei gewählt');
end;
end;
So öffne ich die TXT's im StringGrid:
Delphi-Quellcode:
//TxT Datei öffnen
procedure TForm3.FormCreate(Sender: TObject);
var Datei: Textfile;
ZeileIndex, SpalteIndex: integer;
Zeile: string;
begin
//Datei Lesen
ShowMessage(ExtractFilePath(ParamStr(0))+'DATEN\');
assignfile(Datei, ExtractFilePath(ParamStr(0))+'DATEN\'+Form1.ListView1.Selected.Caption+'.txt');
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;
Doch leider funzt es nicht so wie es soll. Ich will ja wenn ich auf ein Symbol z.b. mit den Namen LT-13-7-1 klicke...die TXT LT-13-7-1.txt im StringGrid angezeigt bekommen!
Ich dachte es funktioniert mit den gerade ausgewählten "Symbolnamen":
Form1.ListView1.Selected.Caption
aber geht auch nicht!
Wie kann ich den jeweiligen Namen herausfinden?