Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
1. Sep 2002
ICH HABS JETZT. Es funktioniert.
Ich hab was vergessen.
Es muß so aussehen:
...
begin
OldFile := TFileStream.Create(Label2.Caption + Label3.Caption, fmOpenRead or fmShareDenyWrite);
try
....
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
1. Sep 2002
Hi, ich hab das jetzt so gemacht. Nun, wenn ich jetzt genau diese Datei sichern möchte kommt die Meldung:
Datei 'Kundendaten.mdb' konnte nicht geöffnet werden.
So sieht mein Button beim Sichern aus
procedure TForm1.Button2Click(Sender: TObject);
var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
1. Sep 2002
Es könnten mehrere Dateien in diesem Ordner sein, aber die Datei, die im Label 3 erscheinen soll, soll immer folgende sein 'Kundendaten.mdb'
Wie geht das mit dem FindFirst
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
1. Sep 2002
Ich hab nur den Pfad in der Registry. Die Datei nicht.
Den Path lese ich ja schon im Label2 aus. Jetzt fehlt nur noch die datei in Label 3 dazu.
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
1. Sep 2002
hi, ich habs noch nicht ganz
Ich zeige den Pfad im label mit folgendem Code an:
Label2.Caption := a;
Ich lese ja aus der Registry den Pfad aus.
Und wenn ich jetzt den Code:
Label3.Caption:=ExtractFilename(ParamStr(0))
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
1. Sep 2002
Ja, könnte sein. Wie kann ich das mit extractfilename machen?
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
1. Sep 2002
Danke Luckie für den Code, aber mit dem hab ich leider nichts anfangen können aber er hat mein gedächnis einwenig auf die sprünge geholfen. Ich hab jetzt fast alles geschaft bis auf eine Sache noch.
Ich habe in der Registry den Ordner stehen, wo die Datei ist, welche ich sichern möchte. Diese Datei nennt sich 'Kundenverwaltung.mdb'
Ich kann zwar den Ordner auslesen und im Label anzeigen,...