Oprettet søn. d. 01. april 2007 kl. 09:41:18

15 point uddelt | 5 kommentarer

delphiuser (9.500 point. Point ude: 0)

læggesammen af 11 edit boxe

Hej eksperter....

Jeg er i gang med at lave et lille program hvor man kan taste ind hvad man har af forskellige mønter. så regner den selv sammen hvor mange kroner det er.

men nu har jeg bare et problem... jeg har 11 edit boxe hvor resultatet i kroner står i. de 11 boxe skal lægges sammen i en 12 editbox. og den skal kunne tage komma tal. men den vil bare ikke efter den måde jeg selv prøvet på...

her er min egen kode for at den lægger det hele sammen....

procedure TForm3.Edit23Click(Sender: TObject);
begin
(floattostr(strtofloat(edit2.text) + strtofloat(edit4.text) + strtofloat(edit6.Text) + strtofloat(edit8.Text) + strtofloat(edit10.Text) + strtofloat(edit12.Text) + strtofloat(edit14.Text) + strtofloat(edit16.Text) + strtofloat(edit18.Text) + strtofloat(edit20.Text) + strtofloat(edit22.Text))) + ' Kr.';
end;

hvad har jeg lavet af fejl...

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet søn. d. 01. april 2007 kl. 10:08:49| #1

kroning (32.425 point)
www.kroning.dk

Jeg ville gøre det sådan:
Giv alle dine Edit´s som indeholder tal der skal lægges sammen en Tag=50

var
i : integer;
Total : Currency;
begin
Total:=0;
for i:=0 to Self.ComponentCount-1 do
if (Self.Components[i] is TEdit) and (Self.Components[i].Tag=50) then
Total:=Total+StrToFloatDef((Self.Components[i] as TEdit).Text,0);

EditT.Text:=FloatToStr(Total);
end;

EditT er navnet på den edit box der indeholder resultatet.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet søn. d. 01. april 2007 kl. 11:41:08| #2

a_nor (12.585 point)

Enig i Kronings betragtning om at det bliver uoverskueligt når meget skal håndteres som du gør, og derfor

Du har bare glemt at skrive

Edit23.text:=

før din lange summation :-)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet man. d. 02. april 2007 kl. 07:54:56| #3

hrc (32.737 point)

Du bør også bruge TFormatSettings. Lav en variabel af recorden TFormatSettings, sæt DecimalSeparator til hvad der skal separere hel- og decimaldelen og læg den ved StrToFloatDef-kaldet.

... og så ellers lave det på denne måde:

procedure btnSUMClick(Sender : TObject)
begin

function SumSummarum(aEdits : array of TEdit) : double;
var
i : integer;
FormatSettings : TFormatSettings;
begin
result := 0.0;
FormatSettings.DecimalSeparator := '.'; // Eller komma
for i := low(aEdits) to high(aEdits) do
result := result + StrToFloatDef(aEdits[i].Text,0.0,FormatSettings);
end;

begin
Edit23.Text := FloatToStr(SumSummarum([Edit2,Edit4,Edit6,Edit8, ... Edit22 ]));
end;

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. juli 2010 kl. 14:14:46| #4

Accepteret svar!15 point tildelt

delphiuser (9.500 point)

lukker

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet ons. d. 28. juli 2010 kl. 15:47:18| #5

a_nor (12.585 point)

Hej "Delphiuser"

Har du nogensinde uddelt point (til andre end dig selv) for besvarelser af nogle af dine 86 oprettede spørgsmål ?

med undren ...

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Log ind

Opret bruger | Glemt adgangskode

Seneste spørgsmål

Irriterende timeout i Delphi 7 på en win7 64 bits platform

Oprettet den 2. februar 2012 kl. 12.17

nca giver 60 point for svar | Giv et svar »

Manglende danske tegn

Oprettet den 24. januar 2012 kl. 16.12

hugopedersen giver 60 point for svar | Giv et svar »

Sikre mig at form er færdigoprettet

Oprettet den 24. januar 2012 kl. 10.01

hugopedersen giver 100 point for svar | Giv et svar »

Seneste guides

Installer win 7

9. februar 2012 kl. 14.11 | Læs »

Installation af Apache2, PHP5, MySQL5, Phpmyadmin og...

8. februar 2012 kl. 20.05 | Læs »

Den hurtige og effektive metoder til at knække...

4. februar 2012 kl. 23.16 | Læs »

Guide til usb internet også kaldet mobilt bredbånd

4. februar 2012 kl. 22.33 | Læs »

Den gode bruger

30. januar 2012 kl. 04.45 | Læs »

Se alle guides »

Seneste nyheder

Måske snart slut med Androids helt store problem

10. februar 2012 kl. 13.40 | Læs »

Her er fem sjove danske websider du skal kende

10. februar 2012 kl. 13.31 | Læs »

NemId sprængt: Hackere bryder ind i Danske Bank

10. februar 2012 kl. 13.06 | Læs »

Danmark kigger langt efter musikbranchens guldkalv

10. februar 2012 kl. 12.20 | Læs »

Nu kan du snart hente Windows 8

10. februar 2012 kl. 11.41 | Læs »

Se alle nyheder »

Tips & Tricks fra PC World

Her er fem sjove danske websider du skal kende

Trænger dine lattermuskler til en omgang fitness på dansk? Vi viser vej til fem websider fyldt med humor og vanvittig satire.

Læs mere »

Anmeldelser fra PC World

Test: Denne super-tablet er iPads hårdeste konkurrent

Eee Pad Transformer Prime er frygtindgydende med sin quadcore processor og evne til at trylle sig om til bærbar. Apple bør kigge i bagspejlet, for Asus' tablet-pc kommer buldrende - og gør det...

Læs mere »

Seneste blogindlæg

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...

Læs mere »