LoadFile()
LoadFile() – Objektinhalt aus Datei laden
Die Funktion läd eine Datei in ein Objekt der Klassen TBlobField, TPicture, TBitmap, TMemoStrings, TStrings ….
Parameter | Beschreibung |
---|---|
aObject:O | Objekt |
aFileName:C | Pfad + Dateiname |
Rückgabewert
Logisch / Boolean - Datei konnte geladen werden
Beispiel
CODE
| aForm, aImage, aMemo, aBtn, aBtn2, aDlg, cFilter |
function DoOnClick(sender)
if sender.name = 'BtnText' then
cFilter := 'Text Dateien (*.txt)|*.txt',
else,
cFilter := 'JPG Dateien (*.jpg)|*.jpg|Bitmap Dateien (*.bmp)|*.bmp|' +
'Gif Dateien (*.gif)|*.gif',
endif,
aDlg := OpenDlg('Datei auswählen...', cFilter),
aDlg.active := true,
if aDlg.selected then
if sender.name = 'BtnText' then
LoadFile(aMemo.lines, aDlg.FileName),
else,
LoadFile(aImage.picture, aDlg.FileName),
endif,
endif,
DestroyObject(aDlg),
end,
aForm := CreateObject('TForm'),
aForm.height := 150,
aForm.width := 500,
aForm.caption := 'LoadFile-Beispiel',
aImage := CreateObject('TImage', 'Image', aForm, aForm),
aImage.left := 200,
aImage.height := 96,
aImage.width := 290,
aMemo := CreateObject('TMemo', 'Memo', aForm, aForm),
aMemo.height := 96,
aBtn := CreateObject('TButton', 'BtnText', aForm, aForm),
aBtn.left := 100,
aBtn.top := 100,
aBtn.height := 20,
aBtn.width := 100,
aBtn.Caption := 'Text-Datei laden',
aBtn2 := CreateObject('TButton', 'BtnImage', aForm, aForm),
aBtn2.left := 250,
aBtn2.top := 100,
aBtn2.height := 20,
aBtn2.width := 100,
aBtn2.Caption := 'Bild-Datei laden',
LoadFile(aImage.picture, 'C:\loadfile.jpg'),
LoadFile(aMemo.lines, 'C:\loadfile.txt'),
AssignEvent(aBtn, 'OnClick', 'DoOnClick'),
AssignEvent(aBtn2, 'OnClick', 'DoOnClick'),
ShowModal(aForm)
// Ergebnis: Mit den zwei Buttons können andere Text- oder Bild-Dateien
// in das Fenster geladen werden.