folgende Funktion wird von Delphi 5 pro problemlos compiliert
Delphi-Quellcode:
function fkt_CalcWorkTime(WAZ: Double):TStringList;
const
RunTime : TDateTime = 0.25 + 1/48;
EndTime : TDateTime = 0.75 - 2/48;
Step : TDateTime = 1/48;
var
S1 : TStringList;
Begin
S1 := TStringList.Create;
Try
WAZ:= (24/WAZ)/5;
while xx <= EndTime - WAZ do
Begin
S1.Add(TimeToStr(RunTime) +' - '+ TimeToStr(RunTime + WAZ));
RunTime := RunTime + Step;
end;
except
S1.Free;
end;
Result:=S1;
end;
in delphi 7 wird in der zeile
RunTime := RunTime + Step;
mit der fehlermeldung abgebrochen ' der linken seite kann nichts zugewiesen werden'
bin für jede erklärung dankbar
raik