|
|
 | InputQueryInt Error?
Fra : Monie Jacobsen |
Dato : 11-09-02 10:21 |
|
Hej
Jeg får en [Error] Unit5.pas(67): Types of actual and formal var parameters
must be identical
Hvad kan der være galt her?
function TForm1.InputQueryInt(const MinCaption, MinPrompt: string;
var Value: Integer): Boolean;
var
s: string;
code: integer;
begin
repeat
s:= '';
result:= InputQuery(MinCaption, MinPrompt, s);
Val(s, Value, code);
if Code<>0 then
ShowMessage('Det indtastet var: '+'[ '+(S)+' ]'+ #13#10 + 'Du skal
indtaste et heltal!');
until (not result) or (code = 0);
end;
begin
[Error] Unit5.pas(67): Types of actual and formal var parameters must be
identical
// hvad menes der her?
i := InputQueryInt('Antal:','Indtast heltal:',tal);
Memo1.Lines.Add('Talværdi: '+ Format('%8.1d', [i]));
end;
Mvh
Monie
| |
 Harald (11-09-2002)
| Kommentar
Fra : Harald |
Dato : 11-09-02 12:39 |
|
"Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
news:3d7f0aec$0$191$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Jeg får en [Error] Unit5.pas(67): Types of actual and formal var
parameters
> must be identical
> Hvad kan der være galt her?
Tal skal være af typen integer
Mvh
HK
> function TForm1.InputQueryInt(const MinCaption, MinPrompt: string;
>
> var Value: Integer): Boolean;
>
> var
> s: string;
> code: integer;
> begin
> repeat
> s:= '';
> result:= InputQuery(MinCaption, MinPrompt, s);
> Val(s, Value, code);
> if Code<>0 then
> ShowMessage('Det indtastet var: '+'[ '+(S)+' ]'+ #13#10 + 'Du skal
> indtaste et heltal!');
> until (not result) or (code = 0);
> end;
>
> begin
>
> [Error] Unit5.pas(67): Types of actual and formal var parameters must be
> identical
> // hvad menes der her?
> i := InputQueryInt('Antal:','Indtast heltal:',tal);
> Memo1.Lines.Add('Talværdi: '+ Format('%8.1d', [i]));
>
> end;
>
> Mvh
>
> Monie
>
>
>
| |
Monie Jacobsen (11-09-2002)
| Kommentar
Fra : Monie Jacobsen |
Dato : 11-09-02 14:38 |
|
Tak Harald
Ser nærmere på dette!
Mvh
Monie
"Harald" <swobu@kroning.dk> skrev i en meddelelse
news:3d7f2b3e$0$27665$edfadb0f@dspool01.news.tele.dk...
> "Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
> news:3d7f0aec$0$191$edfadb0f@dspool01.news.tele.dk...
> > Hej
> >
> > Jeg får en [Error] Unit5.pas(67): Types of actual and formal var
> parameters
> > must be identical
> > Hvad kan der være galt her?
>
> Tal skal være af typen integer
>
> Mvh
> HK
>
>
> > function TForm1.InputQueryInt(const MinCaption, MinPrompt: string;
> >
> > var Value: Integer): Boolean;
> >
> > var
> > s: string;
> > code: integer;
> > begin
> > repeat
> > s:= '';
> > result:= InputQuery(MinCaption, MinPrompt, s);
> > Val(s, Value, code);
> > if Code<>0 then
> > ShowMessage('Det indtastet var: '+'[ '+(S)+' ]'+ #13#10 + 'Du skal
> > indtaste et heltal!');
> > until (not result) or (code = 0);
> > end;
> >
> > begin
> >
> > [Error] Unit5.pas(67): Types of actual and formal var parameters must be
> > identical
> > // hvad menes der her?
> > i := InputQueryInt('Antal:','Indtast heltal:',tal);
> > Memo1.Lines.Add('Talværdi: '+ Format('%8.1d', [i]));
> >
> > end;
> >
> > Mvh
> >
> > Monie
> >
> >
> >
>
>
| |
|
|