/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408845
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste