Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
1. Nov 2004
Lösung:
procedure save1
begin
pfad := extractfilepath(paramstr(0));
pfad := pfad + Edit1.Text + '.dat';
Stream := TFileStream.Create(pfad, fmCreate);
...
procedure TForm1.FileListBox1Click(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
25. Okt 2004
Ich gehe vom Drive-Combo <runter> bis zur FileListBox!
Dirk
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
22. Okt 2004
Kann es sein, dass ich den pfad irgendwie als FileName angeben muss?
Dirk
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
22. Okt 2004
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
22. Okt 2004
Der Rest vom Code der wichtig sein könnte
Implementierung
Type
TDaten = record;
Feld1, Feld1: String;
end;
var
Stream: TFileStream;
Daten: array of TDaten;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
22. Okt 2004
procedure TForm1.save1();
var
i: integer;
pfad: string;
begin
pfad := Edit1.Text + '.dat';
Stream := TFileStream.Create(pfad, fmCreate);
dsSave;
Stream.WriteBuffer(dsmax, SizeOf(Word));
for i := dsmax - 1 downto 0 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
22. Okt 2004
Und wie schreibe ich diese Struktur?
Ich stehe ein wenig auf dem Schlauch!
Dirk
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
22. Okt 2004
Hallo Michael,
warum es umgekehrt nicht funktioniert, weiss ich nicht:
meine Procedure wäre (jetzt aus dem Kopf):
dsmax: Maximale Anzahl Datensätze
dsOpen: Datensätze öffnen (Edit1.Text := Feld)
pfad := Edit1.Text
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
22. Okt 2004
Hallo,
ich habe eine StreamDatei gespeichert unter einem Namen, der in einem
Edit-Feld eingetragen wurde:
pfad := Edit1.Text + '.dat';
Stream := TFileStream.Create(pfad, fmCreate);
Ich umgehe so den SaveDialog.Execute.