String in Datei abspeichern / Save String to Textfile

[Caroli]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo, Harald!
Meinst Du das hier?
1:
fileinstance(bExecute:=FALSE);
fileInstance(sNetId:='',sPathname:=filepath,nMode:=FOPEN_MODEWRITE OR FOPEN_MODEPLUS OR FOPEN_MODETEXT,tTimeout:=T#1S,bExecute:=TRUE );

IF(NOT(fileinstance.bBusy)) THEN
Step:=Step+1;
END_IF
Das würde ich so auflösen:

fileinstance(sNetId:='',sPathname:=filepath,nMode:=FOPEN_MODEWRITE OR FOPEN_MODEPLUS OR FOPEN_MODETEXT,tTimeout:=T#1S);
case step of
1:
fileinstance.bExecute:=false;
step:=2;
2:
fileinstance.bExecute:=true;
IF(NOT(fileinstance.bBusy)) THEN
Step:=Step+1;
END_IF
3:
...
else
;
end_case

 

[PN/DP]

Hallo, Harald!
Meinst Du das hier?
[...]
Das würde ich so auflösen:

fileinstance(sNetId:='',sPathname:=filepath,nMode:=FOPEN_MODEWRITE OR FOPEN_MODEPLUS OR FOPEN_MODETEXT,tTimeout:=T#1S);
case step of
1:
fileinstance.bExecute:=false;
step:=2;
2:
fileinstance.bExecute:=true;
IF(NOT(fileinstance.bBusy)) THEN
Step:=Step+1;
END_IF

Ja. Das mußt Du schon dazuschreiben, daß der arme Programmierer bei Deinem Vorschlag auch noch das halbe Programm mit ändern muß
Genaugenommen muß er sogar aus jedem Schritt 3 Schritte machen, weil nur durch "fileinstance.bExecute:=true;" sich das "fileinstance.bBusy" noch nicht ändert ...

Harald