|
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | InputQuery kommaTal? Fra : Monie Jacobsen |
Dato : 12-09-02 07:44 |
|
Hej
Nedstående function skulle kunne behandle kommatal, alså 2,5
Men det vil den ikke.
Har du en ide, så den kan behandle komma tal?
function TForm1.InputKomaTal(const MinCaption, MinPrompt: string;
var Value: Integer): Boolean;
var
s: string;
code: integer;
begin
repeat
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;
//Udskrivning eksempel:
procedure TForm1.btnKomaTalClick(Sender: TObject);
var
i: Integer;
begin
if InputKomaTal('Antal vinger:','Indtast heltal:',i) then
Memo1.Lines.Add('Talværdi: '+ Format('%8.1f', [i]))
end;
Mvh
| |
Harald (12-09-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Harald |
Dato : 12-09-02 11:15 |
|
"Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
news:3d8037b3$0$135$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Nedstående function skulle kunne behandle kommatal, alså 2,5
> Men det vil den ikke.
> Har du en ide, så den kan behandle komma tal?
Hvad får dig til at tro at den skulle kunne behandle kommatal? Alle
variabler er jo defineret som integer, ret det og så vil det virke.
Mvh
HK
> function TForm1.InputKomaTal(const MinCaption, MinPrompt: string;
> var Value: Integer): Boolean;
> var
> s: string;
> code: integer;
> begin
> repeat
> 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;
>
> //Udskrivning eksempel:
>
> procedure TForm1.btnKomaTalClick(Sender: TObject);
> var
> i: Integer;
> begin
> if InputKomaTal('Antal vinger:','Indtast heltal:',i) then
> Memo1.Lines.Add('Talværdi: '+ Format('%8.1f', [i]))
> end;
>
> Mvh
>
>
>
| |
Monie Jacobsen (12-09-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Monie Jacobsen |
Dato : 12-09-02 11:22 |
|
Til Harald
Tak fordi du svarede.
Jeg havde stirret mig blind.
Det hjalp med at ændre Integer til Real. Så virkede det.
Mvh
Monie
"Harald" <swobu@kroning.dk> skrev i en meddelelse
news:3d806908$0$184$edfadb0f@dspool01.news.tele.dk...
> "Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
> news:3d8037b3$0$135$edfadb0f@dspool01.news.tele.dk...
> > Hej
> >
> > Nedstående function skulle kunne behandle kommatal, alså 2,5
> > Men det vil den ikke.
> > Har du en ide, så den kan behandle komma tal?
>
> Hvad får dig til at tro at den skulle kunne behandle kommatal? Alle
> variabler er jo defineret som integer, ret det og så vil det virke.
>
> Mvh
> HK
>
>
> > function TForm1.InputKomaTal(const MinCaption, MinPrompt: string;
> > var Value: Integer): Boolean;
> > var
> > s: string;
> > code: integer;
> > begin
> > repeat
> > 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;
> >
> > //Udskrivning eksempel:
> >
> > procedure TForm1.btnKomaTalClick(Sender: TObject);
> > var
> > i: Integer;
> > begin
> > if InputKomaTal('Antal vinger:','Indtast heltal:',i) then
> > Memo1.Lines.Add('Talværdi: '+ Format('%8.1f', [i]))
> > end;
> >
> > Mvh
> >
> >
> >
>
>
| |
|
|