Re: StreamDatei öffnen ohne OpenDialog.Execute
Zitat:
|
Re: StreamDatei öffnen ohne OpenDialog.Execute
Hi!
Zitat:
Und ohne Fehlermeldung wirds für uns schwierig, meine Wahrsagerkugel ist leider grad zu Inspektion :mrgreen: Ciao Frederic |
Re: StreamDatei öffnen ohne OpenDialog.Execute
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
Delphi-Quellcode:
davor setzte, funktioniert ja alles.
if OpenDialog.Execute = true then begin
Dirk |
Re: StreamDatei öffnen ohne OpenDialog.Execute
Kann es sein, dass ich den pfad irgendwie als FileName angeben muss?
Dirk |
Re: StreamDatei öffnen ohne OpenDialog.Execute
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. :roll: 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. |
Re: StreamDatei öffnen ohne OpenDialog.Execute
Zitat:
|
Re: StreamDatei öffnen ohne OpenDialog.Execute
Ich gehe vom Drive-Combo <runter> bis zur FileListBox!
Dirk |
Re: StreamDatei öffnen ohne OpenDialog.Execute
Lösung:
Delphi-Quellcode:
Ereignisse:
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; FileListBox1:OnClick FileListBox1Click |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:19 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz