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

[atgis]

Also wie bekomm ich den Namen des "Symbols" in die andere Form, dass ich die TXT im StringGrid öffnen kann?

Mit dem Selektierten Item klappt irgendwie nicht...

Hat den keiner eine Idee

[atgis]

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;

[atgis]

Kann mir den keiner helfen?

[Christian Seehase]

Moin atgis,

ersetze mal

****HIER DATEINAME DES LISTVIEW ITEM****

durch

Form1.ListView1.Selected.Caption

Dann lege mal einen Breakpoint auf die Zeile, und schau Dir an, was da drin steht.
Wenn OK (wovon auszugehen ist) kannst Du dann mal im Einzelschritt (F7) durchgehen, wo's hakt.

BTW:

Delphi-Quellcode:

//Inhalt in StringGrid laden
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
try form3.show;
except ShowMessage('Keine Datei gewählt');
end;
end;

finde ich nicht so schön.
try/except sollte man nur sehr sparsam einsetzen, und nur dann, wenn es wirklich nicht anders geht.

Wenn Du es, z.B., so machst, wird der Code sauberer.

Delphi-Quellcode:

//Inhalt in StringGrid laden
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
  if not Assigned(Form1.ListView1.Selected) then exit;
  form3.show; // evtl. auch ShowModal
end;

[atgis]

Zitat von Christian Seehase:

Moin atgis,

ersetze mal

****HIER DATEINAME DES LISTVIEW ITEM****

durch

Form1.ListView1.Selected.Caption

Genau das hab ich ja schonmal versucht! Man denkt, dass sollte klappen...aber ich bekomm beim Compilieren immer eine Exception!
http://img253.imageshack.us/img253/7...tmapis9.th.jpg
Wenn ich den Dateinamen Fest eingeb, also Pfad\blablalb\LT-13-7-1.txt funktioniert es natürlich...aber es öffnet halt immer die selbe Datei...das will ich ja nicht


EDIT: Die Exception wird wohl dadurch kommen, weil ja noch gar kein Symbol Selektiert werden konnte. Geht ja auch schlecht, wenn das Programm nicht starten kann...

Man müsste quasi unterbinden, dass diese Form (Form3) mit den StringGrid beim Programmstart mit geladen wird...oder so ähnlich.


EDIT2: Ja es liegt daran, dass noch kein Symbol augewählt werden konnte...mh wie löse ich das Problem?

[Christian Seehase]

Moin atgis,

das ist aber äusserst seltsam.
Wenn Du einen Doppelclick auf einen ListView machst, enthält Selected entweder nil oder die Adresse des ListItems, auf das der DoppelClick gemacht wurde.
Vielleicht solltest Du mal Dein ganzes Projekt hier anhängen (am Besten in einem Archiv, ohne DCU, EXE), denn so kann ich mir den Fehler nicht erklären.

Zitat von atgis:

Man müsste quasi unterbinden, dass diese Form (Form3) mit den StringGrid beim Programmstart mit geladen wird...oder so ähnlich.

hast Du denn auch mal die DoppelClick-Routine angepasst?

[DeddyH]

Zitat von Christian Seehase:

Vielleicht solltest Du mal Dein ganzes Projekt hier anhängen

Dasselbe wollte ich auch gerade vorschlagen

[Christian Seehase]

Moin atgis,

Zitat von Christian Seehase:

hast Du denn auch mal die DoppelClick-Routine angepasst?

Zitat von atgis:

EDIT2: Ja es liegt daran, dass noch kein Symbol augewählt werden konnte...mh wie löse ich das Problem?

Womit die Anwort auf meine Frage wohl "Nein" lauten dürfte

[atgis]

Hallo,

Doch ich hab es so angepasst wie du es Vorgeschlagen hast! Also ich weiß nicht ob ichs richtig beschrieben hab...Der Name der Datei, die im StringGrid geöffnet werden soll - soll sich aus dem Selektierten Item (Symbol) ergeben...

Aber der Compiler spuckt mich an, weil er sozusagen den Namen beim Programmstart nicht findet! Ist ja auch klar, weil noch keine Dateien ins ListView geladen wurden...

Ich hab mal zum testen ein festes Item in das ListView eingetragen und es test genannt. Mit SelectAll; das Item beim Programmstart Selektiert. Dann eine Datei in test.txt angelegt...Compiliert - funktioniert! Aber nun öffnet es eben immer tes.txt - egal auf welches Item ich Doppelklick...

Ich hoffe jetzt ist es Deutlich...

Programm siehe Anhang

[Christian Seehase]

Moin atgis,

jetzt hab' ich's gefunden. Warum hab' ich das nicht eher gesehen (stand ja schon die ganze Zeit so im Thread)

Da Du im OnCreate des Form3 versuchst die Datei zu laden, passiert dies auch beim Programmstart, da das Formular ja schon zu diesem Zeitpunkt erzeugt wird.
Da fallen mir so spontan zwei Lösungsansätze ein:
Du verlegst das Ganze vom OnCreate in das OnShow des Form3

Du erzeugst das Form3 dynamisch (wobei spätestens dann die Verwendung von ShowModal sinnvoll wäre).