/ 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
InputBox hvis Cancel så Exit?
Fra : Monie Jacobsen


Dato : 09-09-02 07:20

Hej

Er der nogle der har en ide til hvordan nedstående function
kan komme til at fungere sådan, at når / hvis der Cancel så Exit;

Function IndtastHelTal(sCaption: string;
iDefault: Integer): Integer;

var
s: string;
tmp: Integer;
begin
s := InputBox('Indtast heltal', sCaption, IntToStr(iDefault));
try
tmp := StrToInt(s);
except
on EConvertError do
begin
ShowMessage('Du skal indtaste et heltal !');
tmp := IndtastHelTal(sCaption, iDefault);
end;
end; // try..except.
Result := tmp;
end;

MVH
Monie




 
 
Harald (09-09-2002)
Kommentar
Fra : Harald


Dato : 09-09-02 09:50

"Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
news:3d7c3d8d$0$170$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Er der nogle der har en ide til hvordan nedstående function
> kan komme til at fungere sådan, at når / hvis der Cancel så Exit;

Brug InputQuery functionen i stedet for InputBox.

Mvh
HK

> Function IndtastHelTal(sCaption: string;
> iDefault: Integer): Integer;
>
> var
> s: string;
> tmp: Integer;
> begin
> s := InputBox('Indtast heltal', sCaption, IntToStr(iDefault));
> try
> tmp := StrToInt(s);
> except
> on EConvertError do
> begin
> ShowMessage('Du skal indtaste et heltal !');
> tmp := IndtastHelTal(sCaption, iDefault);
> end;
> end; // try..except.
> Result := tmp;
> end;
>
> MVH
> Monie
>
>
>



Monie Jacobsen (09-09-2002)
Kommentar
Fra : Monie Jacobsen


Dato : 09-09-02 13:20

Til Harald
Ok jeg prøver, at arbejde med kommandoen InputQuery functionen.

Mvh
Monie


"Harald" <swobu@kroning.dk> skrev i en meddelelse
news:3d7c61df$0$30427$edfadb0f@dspool01.news.tele.dk...
> "Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
> news:3d7c3d8d$0$170$edfadb0f@dspool01.news.tele.dk...
> > Hej
> >
> > Er der nogle der har en ide til hvordan nedstående function
> > kan komme til at fungere sådan, at når / hvis der Cancel så Exit;
>
> Brug InputQuery functionen i stedet for InputBox.
>
> Mvh
> HK
>
> > Function IndtastHelTal(sCaption: string;
> > iDefault: Integer): Integer;
> >
> > var
> > s: string;
> > tmp: Integer;
> > begin
> > s := InputBox('Indtast heltal', sCaption, IntToStr(iDefault));
> > try
> > tmp := StrToInt(s);
> > except
> > on EConvertError do
> > begin
> > ShowMessage('Du skal indtaste et heltal !');
> > tmp := IndtastHelTal(sCaption, iDefault);
> > end;
> > end; // try..except.
> > Result := tmp;
> > end;
> >
> > MVH
> > Monie
> >
> >
> >
>
>



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

Månedens bedste
Årets bedste
Sidste års bedste