|
|
 | Hvis tryk på Cancel så stop?
Fra : Monie Jacobsen |
Dato : 13-09-02 10:12 |
|
Hej
Er der nogle der har en ide til, at når der trykkes på Cancel ,
i functionen nedenfor, lige efter " result:= InputQuery(MinCaption,
MinPrompt, s);"
så retur der til f.eks form1 og function "InputKomaTal" forlades.
function TForm1.InputKomaTal(const MinCaption, MinPrompt: string;
var Value: Real): Boolean;
var
s: string;
code: integer;
begin
repeat
s:= '';
result:=InputQuery(MinCaption, MinPrompt, s);
// mrCancel; Har prøvet mange funktioner her!
Val(StringReplace(s, ',', '.', []), Value, code);
if Code<>0 then
ShowMessage('Du indtaste: '+'[ '+(S)+' ]'
+ #13#10 + 'Du skal indtaste et komma tal!');
until (not result) or (code = 0);
end;
Mvh
Monie
| |
 Ulrik Vadstrup (13-09-2002)
| Kommentar
Fra : Ulrik Vadstrup |
Dato : 13-09-02 11:47 |
|
"Monie Jacobsen" <monie@tdcadsl.dk> wrote in message
news:3d81abe2$0$57457$edfadb0f@dspool01.news.tele.dk...
> Hej
> Er der nogle der har en ide til, at når der trykkes på Cancel ,
> i functionen nedenfor, lige efter " result:= InputQuery(MinCaption,
> MinPrompt, s);"
> så retur der til f.eks form1 og function "InputKomaTal" forlades.
>
> function TForm1.InputKomaTal(const MinCaption, MinPrompt: string;
> var Value: Real): Boolean;
> var
> s: string;
> code: integer;
> begin
> repeat
> s:= '';
> result:=InputQuery(MinCaption, MinPrompt, s);
> // mrCancel; Har prøvet mange funktioner her!
>
> Val(StringReplace(s, ',', '.', []), Value, code);
> if Code<>0 then
> ShowMessage('Du indtaste: '+'[ '+(S)+' ]'
> + #13#10 + 'Du skal indtaste et komma tal!');
> until (not result) or (code = 0);
> end;
>
>
> Mvh
> Monie
>
Har S en "værdi" nå du kalder den, ellers...
If s = '' Then Exit
| |
|
|