Avatar billede fhansen Praktikant
09. marts 2006 - 23:38 Der er 4 kommentarer

Format af TEdit

Jeg har en form med en del TEdit, disse felter skal bruges til beregning af forskellige beløb.
Problemet er at jeg gerne vil have formateret felterne med Format('%8.2m', [StrToFloat(Edit1.Text)]), men dette betyder at jeg så ikke kan regne på felterne, min løsning er så at bruge Format('%8.2f', [StrToFloat(Edit1.Text)]), dette virker med er ikke særlig kønt, da f.eks texten ikke står pænt under hinanden, og 'Kr.' er en label før feltet.
Der må være en pænere måde at gøre det på.....

Finn
Avatar billede kroning Nybegynder
10. marts 2006 - 00:20 #1
Kan du ikke lave en function du bruger når du skal bruge en Edit til beregning, f.eks:

Tal:=FE(Edit.Text)+2;

functionen FE (FixEdit) laver så Edit.Text om til et tal.
Avatar billede kroning Nybegynder
10. marts 2006 - 00:27 #2
Eks. på en FE funktion:

function FE(Tal : string) : Currency;
var
    i : integer;
begin
    for i:=length(Tal) downto 1 do
      if not (Tal[i] in (.'0'..'9',','.)) then
        delete(Tal,i,1);
    Result:=StrToFloat(Tal);
end;
Avatar billede fhansen Praktikant
10. marts 2006 - 08:12 #3
Hmmm, det var da en mulighed, som bør prøves
Avatar billede fhansen Praktikant
08. februar 2011 - 00:19 #4
point ?
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