TurboPL Referenz

ExecProg Prozedur

Syntax

ExecProg(Dateiname: String; [Oem: Integer]): Integer
ExecProg(Feld: String[]): Integer
ExecProg(Memo: Memofeld): Integer

Erklärung

ExecProg gibt es in drei verschiedenen Varianten. In jeder führt es eine Folge von TurboPL-Anweisungen aus. Diese Anweisungen stehen bei der ersten Variante in einer Datei, bei der zweiten in einem String-Array und in der dritten in einem Memo-Feld. Im ersten Fall gibt Oem an, ob es sich um DOS-Zeichensatz (OEM = 1) oder Windows-Zeichensatz (OEM = 0) handelt. Wenn das Argument ein String-Array ist, muss in jedem String eine TurboPL-Zeile stehen. Die Ausführung endet bei der ersten leeren Zeile. Das Ergebnis ist im Erfolgsfall Null und sonst ein Fehlercode.

Beispiel

Die Speicher-Datei wird mit Befehlen beschrieben. Diese werden dann in ein Memo gelesen und dann ausgeführt.

procedure START_EXT_PROGRAMM
       vardef nFI : Integer;
       nFI := Rewrite("RAMTEXT");
       WriteLn(nFI, "Message('Hallo')");
       Close(nFI);
       ReadMemo(KUNDEN.Memo, "RAMTEXT", 1);
       ExecProg(KUNDEN.Memo);
endproc