InputBox z integerem

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?

Może ta wersja funkcji znajduje się w innym module? (tak jest np. z RandomFrom). Nie mogę niestety sprawdzić Twojego kodu, bo nie mam D7.

Może ta wersja funkcji znajduje się w innym module? (tak jest np. z RandomFrom). Nie mogę niestety sprawdzić Twojego kodu, bo nie mam D7.

Do Uses dodaj Qdialogs.

w helpie jest podawane do jakiego modułu należy dana funkcja, w tym przypadku :

Unit
Dialogs or QDialogs

Do Uses dodaj Qdialogs.

Nie radzę... QDialogs to moduł miedzyplatformowy i wymaga do działania jakiejś kilkumegowej crossplatformowej biblioteki, która znajduje się tylko w płatnych wersjach delphi.

Sprobowalem z QDialogs, ale mam PE i:
[Fatal Error] ImportOldATData.pas(7): File not found: 'QDialogs.dcu'

Wiec chyba musze to oprogramowac recznie wokol zwyklego stringowego InputBoxa. Dzieki za sugestie wszystkim.