Moin zusammen,
hab momentan einen Knoten im Kopf. Ich möchte gerne in einer Unit eine function aus dem Hauptfomular aufrufen, die einen Dialog öffnet und in ein Memo eine Datei lädt. Allerdings fkt. das so nicht. Kann mir einer sagen wo meine Fehler steckt, bzw. wie man es richtig macht?
THX Georg
hab momentan einen Knoten im Kopf. Ich möchte gerne in einer Unit eine function aus dem Hauptfomular aufrufen, die einen Dialog öffnet und in ein Memo eine Datei lädt. Allerdings fkt. das so nicht. Kann mir einer sagen wo meine Fehler steckt, bzw. wie man es richtig macht?
Code:
function ADVMemo_laden(ADVM : TDBADVMemo) : TDBADVMemo; var Mein_opendialog : TOpenDialog; begin Mein_opendialog.Create; if Mein_opendialog.Execute then begin ADVM.Lines.LoadFromFile(Mein_opendialog.FileName); ADVM.CurX := 0; ADVM.CurY := 0; ADVM.SetFocus; end; Mein_opendialog.Free; ADVMemo_laden := ADVM; end;
THX Georg
Comment