Avatar billede delphiuser Mester
28. maj 2006 - 10:52 Der er 7 kommentarer og
1 løsning

hvad har jeg gjort galt her

Kan man ikke lave noget som ser sådan her ud?

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '' then
begin
Edit13.Text := 'result Edit1.text/4';
end;
end;

Det skal fungere sådan at når man taster et tal i edit1 skal edit13 dividere tallet i edit1 med 4 og skrive resultatet i edit13 så snart jeg går videre til næste række
Avatar billede nca Juniormester
28. maj 2006 - 11:13 #1
Du skal først have teksten i Edit1 lavet til tal.
StrToInt(Edit1.text)
Så skal der divideres med 4
StrToInt(Edit1.text) div 4
Så skal det hele laves til tekst igen
IntToStr(StrToInt(Edit1.text) div 4
Edit13.text:=IntToStr(StrToInt(Edit1.text) div 4

Derudover kommer en masse kontrol af om der er indtastet tal i Edit1.
Må resulatet af divisionen være et dicimaltal?
Avatar billede delphiuser Mester
28. maj 2006 - 11:23 #2
jo det må det gerne men max med 2 decimaler
Avatar billede pjotre Praktikant
28. maj 2006 - 11:28 #3
try edit3.Text := currtostr(strtocurr(edit1.text) / 4);
  except
    begin
      edit3.text := 'Feltet er ikke nummerisk';
    end;
  end;
Avatar billede delphiuser Mester
28. maj 2006 - 20:46 #4
dette virker ikke

procedure TForm1.Edit13Change(Sender: TObject);
begin
try edit3.Text := currtostr(strtocurr(edit1.text) / 4);
  except
    begin
      edit3.text := 'Feltet er ikke nummerisk';
    end;
  end;
end;
Avatar billede pjotre Praktikant
29. maj 2006 - 08:48 #5
Din procedure"navn" er forkert - Edit13Change - Hvad mon det er?
Du skal lave proceduren ifm. EXIT af feltet Edit1 - således at udregningen bliver foretaget, når du forlader Edit1 feltet:

procedure TForm1.Edit1Exit(Sender. TObject);
begin
try edit3.Text := currtostr(strtocurr(edit1.text) / 4);
  except
    begin
      edit3.text := 'Feltet er ikke nummerisk';
    end;
  end;
end;
Avatar billede delphiuser Mester
29. maj 2006 - 08:56 #6
det skal være sådan at når jeg skriver i edit1. 8 skal den i edit13 skrive 2 kr.
Avatar billede pjotre Praktikant
29. maj 2006 - 09:50 #7
Det er præcis det, som prg. ovenover gør.
Avatar billede delphiuser Mester
29. maj 2006 - 09:51 #8
fandt ud af det
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