SaveFile()
SaveFile() – Objektinhalt speichern
Die Funktion speichert den Inhalt eines Objekts der Klassen TBlobField, TPicture, TBitmap, TMemoStrings, TStrings, … in einer Datei.
Parameter | Beschreibung |
---|---|
aObject:O | Objekt, welches gespeichert werden soll |
aFileName:C | Pfad +Dateiname |
Rückgabewert
Logisch - Boolean - Speichern erfolgreich
Beispiel
CODE
| aForm, aMemo, aBtnS, aBtnC |
function DoOnResize(sender)
aMemo.height := aForm.height-60,
aBtnS.top := aForm.height-50,
aBtnC.top := aForm.height-50,
end,
function save()
| aDlg, cEndung |
aDlg := OpenDlg('Datei auswählen...', 'Text Dateien (*.txt)|*.txt|',
'Alle Dateien (*.*)|*.*'),
aDlg.active := true,
if aDlg.selected then
if File(aDlg.filename) then
if JN('Datei schon vorhanden! Überschreiben?') then
SaveFile(aMemo.lines, aDlg.filename),
endif,
else,
if TokenCount(aDlg.filename,'.') > 1 then
cEndung := '',
else,
cEndung := '.txt',
endif,
SaveFile(aMemo.lines, aDlg.filename + cEndung),
endif,
endif,
end,
function DoOnClick(sender)
case sender.name
of 'save' :: save(),
of 'exit' :: CloseForm(aForm),
endcase,
end,
function DoOnClose(sender, canclose)
if JN('Wirklich beenden?') then
canclose := true,
else,
canclose := false,
endif,
end,
aForm := CreateObject('TForm'),
aForm.caption := 'SaveFile()',
aForm.height := 500,
aForm.width := 800,
aForm.left := SCREENWIDTH - aForm.width,
aForm.top := 200,
aMemo := CreateObject('TMemo', '', aForm, aForm),
aMemo.align := altop,
aBtnS := CreateObject('TButton', 'save', aForm, aForm),
aBtnS.height := 20,
aBtnS.width := 100,
aBtnS.left := 10,
aBtnC := CreateObject('TButton', 'exit', aForm, aForm),
aBtnC.height := 20,
aBtnC.width := 100,
aBtnC.left := aBtns.left+115,
AssignEvent(aForm, 'OnResize', 'DoOnResize'),
AssignEvent(aForm, 'OnCloseQuery', 'DoOnClose'),
AssignEvent(aBtnS, 'OnClick', 'DoOnClick'),
AssignEvent(aBtnC, 'OnClick', 'DoOnClick'),
ShowModal(aForm),
// Ergebnis: Eingabefenster mit einem 'Speichern'- und einem 'Beenden'-Button.
// Der 'Speichern'-Button ruft ein Datenauswahl-Fenster auf,
// in welchem der Speicherort festgelegt werden kann.
// Wird eine bereits existierende Datei ausgewählt, wird gefragt,
// ob diese überschrieben werden soll.