StreamDatei öffnen ohne OpenDialog.Execute

[Luckie]

Zitat von moperswings:

wird der DateiName an Edit1 geschickt

Und der Pfad?

[fkerber]

Hi!

Zitat von moperswings:

Wenn ich die Datei in der FileListBox anklicke, wird der DateiName an Edit1 geschickt, der Rest der Felder bleibt leer und es geht nur noch
mit Anfang und Fehlermeldung[OK] weiter.
Die Fehlermeldung habe ich jetzt leider nicht zur Verfügung.

Was meinst du mit, es geht nur noch mit Anfang weiter?
Und ohne Fehlermeldung wirds für uns schwierig, meine Wahrsagerkugel ist leider grad zu Inspektion

Ciao Frederic

[moperswings]

Der pfad ist nur der String, der sich aus dem Edit.Text Eintrag ergibt!
Die Datei wird dann unter dem Verzeichnis gespeichert, in dem das Delphi
Programm steht.

Fehlermeldung habe ich deshalb nicht, weil ich nicht zuhause an meinem Rechner bin.
Ich dachte auch nicht, dass das so ein Problem wird, den wenn ich den

if OpenDialog.Execute = true then begin davor setzte, funktioniert ja alles.

Dirk

[moperswings]

Kann es sein, dass ich den pfad irgendwie als FileName angeben muss?

Dirk

[jim_raynor]

Was willst du mit dem OpenDialog. Es ist doch völlig egal woher der Dateiname bei TFileStream.Create kommt. Machst du etwa sowas TFileStream.Create(OpenDialog1.Filename,...) ? Dann ist es natürlich fatal, wenn du den Dialog nicht vorher aufrufst, da dann Filename nicht gefüllt wird.

Aber du kannst statt OpenDialog1.Filename einfach den Dateinamen übergeben, der in der Listbox ausgewählt wurde.

Sorry, aber so wie du dich hier anstellst, können wir dir nur schwer helfen. Ehrlich gesagt, weiss ich immer noch nicht so recht, wo eigentlich das Problem liegt.

[Luckie]

Zitat von moperswings:

Der pfad ist nur der String, der sich aus dem Edit.Text Eintrag ergibt!

Ja, sehr schön. Du hast aber nur gesagt, dass du den dateinamen aus einer FileListbox bekommst. Und ich wollte wissen, wo du den Pfad hernimmst, wenn überhaupt.

[moperswings]

Ich gehe vom Drive-Combo <runter> bis zur FileListBox!

Dirk

[moperswings]

Lösung:

Delphi-Quellcode:

procedure save1
begin
        pfad := extractfilepath(paramstr(0));
        pfad := pfad + Edit1.Text + '.dat';
        Stream := TFileStream.Create(pfad, fmCreate);
   ...

procedure TForm1.FileListBox1Click(Sender: TObject);
var
  s:string;
   i: integer;
begin
    s := Filelistbox1.filename;
    Edit1.text := ExtractfileName(s);
    Stream := TFileStream.Create(s, fmOpenRead);
        Stream.ReadBuffer(dsmax, SizeOf(Word));
        for i := dsmax - 1 downto 0 do
        Stream.ReadBuffer(Daten[i], SizeOf(TDaten));
        dsOpen;
        Stream.Free;
        Stream := nil;
end;

Ereignisse:
FileListBox1:OnClick FileListBox1Click