Pfad aus Textdatei auslesen

[einervonvielen]

Hallo

Ich suche schon ziemlich lange, aber ich finde nichts passendes.
Sry falls ich einfach nur zu blöd war :lol:.
Ich will, wie der Titel schon sagt, einen in einer textdatei gespeicherten Pfad in einer Variable Speichern.

Hier mal der Code:

Code:

  listbox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + 'exe1.pfd');
  exe1:=pchar(ListBox1.Items[0]);
  edit1.Text:=exe1;

da kommt dann aber immer die Felermeldung, dass der listenindex das Maximum überschreitet (0)

Ich habe echt keine Ahnung.:(

Kann mir jemand helfen?

[DeddyH]

Liest Du auch die richtige Datei aus? Und steht da auch etwas drin?

[einervonvielen]

Jep:

Code:

C:\Program Files\Borland\Delphi7\Bin\delphi32.exe

Das soll so eine Art schnellstartprogramm werden.

[DeddyH]

Was hat denn der Pfad zu Delphi mit Deiner Datei zu tun? In welchem Format ist die eigentlich?

[edit] Achso, sollte das der Inhalt der Datei sein? Wenn ja, bleibt immer noch die Frage nach dem Dateiformat. [/edit]

[einervonvielen]

Eigendlich eine ganz normal Codierte txt-datei.

Edit: In der Listbox steht der Pfad auch, aber wird nich im Edit und in der Variable angezeigt.

[DeddyH]

Und die steht im selben Verzeichnis wie Deine Exe und ist mit Sicherheit nicht leer? Lass Dir nach dem LoadFromFile doch einmal listbox1.Items.Count ausgeben. Übrigens hoffe ich doch, die Listbox ist nur zur Kontrolle während der Entwicklung und wird später z.B. durch eine Stringliste ersetzt ;)

[einervonvielen]

ÄÄhhhhm Ja, natürlich!:roll:

ansonsten siehe edit.

[DeddyH]

Mal anders:

Delphi-Quellcode:

  listbox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + 'exe1.pfd');
  if ListBox1.Items.Count > 0 then
    begin
      edit1.Text := ListBox1.Items[0];
      exe1 := PChar(ListBox1.Items[0]);
    end
  else
    ShowMessage('Hier stimmt was nicht.');

[einervonvielen]

Hey Super! Funzt! :thumb:
Danke, echt tolles forum hier. (Meins (ein Klassenforum) ist in Ca so belebt wie die Sahara unter der Mittagssonne):?