Einzelnen Beitrag anzeigen

atgis
(Gast)

n/a Beiträge
 
#7

Re: ListView - mit Dateien füllen und auf Inhalt prüfen

  Alt 4. Sep 2007, 19:55
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?
  Mit Zitat antworten Zitat