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.