Beregn procent af

//Med kommatal
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(FloatToStr(StrToFloat(Edit2.Text)/100*StrToFloat(Edit1.Text)))
end;

//Med heltal
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(FloatToStr(StrToInt(Edit2.Text)/100*StrToInt(Edit1.Text)))
end;

Hej
Kan det lade sig gører, at sætte "mm" efter resultatet af ShowMessage?
ShowMessage(FloatToStr(StrToFloat(Edit2.Text)/100*StrToFloat(Edit1.Text)),'mm');

Eler rigtigt mange tak.

Med venlig hilsen
Monie Jacobsen

Hej r.hegaard

Fand ud af det med +' mm'

Så rigitigt mange tak.

Send lige et svar, så du kan få dine Point.

Med venlig hilsen
Monie Jacosen

Hej
Kan disse 2 procedure samføjes til 1 procedure hvor der med f.eks kommatal via if sætning skiftes til den rigtig kode? Alså finder ud om det er et heltal eller kommatal og hopper til den kode, der kan behandel denne.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(FloatToStr(StrToFloat(Edit2.Text)/100*StrToFloat(Edit1.Text))+' mm')
end;

//Med heltal
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(FloatToStr(StrToInt(Edit2.Text)/100*StrToInt(Edit1.Text))+' mm')
end;

Kan der også indsættes en tekst forand ShowMessage så det vises som f.eks:
"Afstand fra rod 540 mm"

Med venlig hilsen
Monie Jacobsen

Den øverste kode kan klare både kommatal og heltal.
Du kan bare tilføje mere tekst ligesom du har tilføjet 'mm'.

til din sidste kommentar

f.eks.

ShowMessage('Afstand fra rod '+FloatToStr(StrToFloat(Edit2.Text)/100*StrToFloat(Edit1.Text))+' mm');

Hej r.hegaard
Mange tak for dine koder.
Jeg ved ikke hvad jeg har gjort fejl i, men den kode med ('Afstand fra rod'+
som du beskriver, syntes jeg, at havde afprøvet, men din virkede.

Mange tak!

Med venlig hilsen
Monie Jacobsen