Avatar billede stefmeister Nybegynder
10. marts 2004 - 21:56 Der er 2 kommentarer og
2 løsninger

Første tegn i edit.

Hej...

Jeg er igang med at lave en lommeregner i Delphi, og har lavet en tast der skal gøre tallet negativt/positiv det virker fint med bare at gøre al teksten i edit til negativ (bare et minus foran), men det skal være sådan at når jeg trykker på den igen, så forsvinder minus-tegnet.
Avatar billede athlon-pascal Juniormester
10. marts 2004 - 22:03 #1
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Pos('-', Edit1.Text) = 1 then
  Edit1.Text := Copy(Edit1.Text, 2, Length(Edit1.Text))
  else
    Edit1.Text := '-' + Edit1.Text;
end;
Avatar billede ziggs Nybegynder
11. marts 2004 - 03:09 #2
Edit1.Text := FloatToStr(StrToFloat(Edit1.Text)*-1);

Ovenstående skifter fortegn på "teksten" i Edit1, forudsat at det er en tal-værdi. Går ud fra at det var det du ville :)

Hvis du regner med decimaltal, så husk "decimaltegnet" er .(punktum) og ikke ,(komma).

Med venlig hilsen
Dennis
Avatar billede stefmeister Nybegynder
11. marts 2004 - 14:10 #3
Begge svar virker præcis som de skal...
Men da det er ziggs' svar som fylder mindst så får han det ekstra point.
Avatar billede nop Nybegynder
13. marts 2004 - 18:09 #4
Jeg mener da at floatToStr vil benytte windows regional settings, og altså benytte komma hvis sat til dk.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester