W helpie do D7 jest m.in. taka postac InputBoxa:
function InputBox(const ACaption, APrompt: WideString; ADefault: Integer; Min: Integer = Low(Integer); Max: Integer = High(Integer); Increment: Integer = 1): Integer; overload;
tymczasem kod:
tmppint:=InputBox('Cannot parse stage and session',
'Name: '+string(OldSession[0].Name)+
' experiment: '+IntToStr(OldSession[0].ExpNo)+#13+
'Date: '+string(OldSession[0].DateString)+
' time: '+string(OldSession[0].TimeString)+#13+
'Original stage/session string: '+string(OldSession[0].Session)+#13+
'Current stage code: '+string(Target[0].StageID)+#13+
'Please enter Session number (1-32767) or 0 to skip this session',
0, 0, 32767, 10);
wywala:
[Error] ImportOldATData.pas(113): Incompatible types: 'String' and 'Integer' po pierwszym zerze
oraz
[Error] ImportOldATData.pas(113): Too many actual parameters
Tak jakby istniala tylko wersja:
function InputBox(const ACaption, APrompt, ADefault: string): string;
tmpint jest Integer
ktos pomoze?