En smule hjælp tak !!

Sæt din windows op til at køre med US tal, eller sæt det i delphi, DecimalSeperator := '.'

/Martin

Control panel -> Regional settings > Currency ->Decimal symbol = '.'

jeg kunne godt lide at vide hvordan man gør det for jeg er en smule newbie !! såååå det er ikke nemt for mig at fatte det !! men okey det kan også være mig men hva !?!

okey jeg var en smule sløv til og svare !!

men det skal være i programmet ikke på selv computern !!

begin
  DecimalSeperator := '.';
end;

hmmmm jeg prøve lige !!

hmmm den siger bare [Error] Unit1.pas(84): Undeclared identifier: 'DecimalSeperator' men jeg ved ik hva der er ivejen !!

Du skal tilføje Sysutils til Uses

det står der i forvejen og det virker stadigvæk ikke !!!

en lille "tyrkfejl" :

  DecimalSeparator := '.';


/Martin

prøv at søge i hjælpen efter "DecimalSeperator"

det hjælper ikke med den DecimalSeparator !!!

i får lige min source !!

procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
Liter: Integer;
Pris: Extended;
RegPris: String;
RegLiter: String;
begin
Reg :=TRegistry.Create;
with Reg do
Rootkey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Prisern', true);
RegPris:=reg.ReadString('Pris');
RegLiter:=Reg.ReadString('Liter');
DecimalSeparator := '.';
        if colalille.Checked = true then begin
        Liter := StrToint(Floattostr((StrToInt(Edit8.Text) * 1.98) + strtoint(RegLiter)));
        Pris := (StrToInt(Edit8.Text) * StrToInt(Edit5.Text)) + StrToInt(RegPris);
        ListBox1.Items.Insert(0, 'CocaCola 0.33L 6 Pack ' + Floattostr(Liter) + 'Liter Til ' + Edit5.Text + ' Kr');
        Reg.WriteString('Pris', FloattoStr(Pris));
        Reg.WriteInteger('Liter', Liter);
        colalille.Checked := False;
        end;
reg.CloseKey;
Reg.Free

end;

og RegLiter = 1,5 !!!!

er der ikke nogen der gider hjælpe lidt eller hva ?!?!

procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
Liter: Extended;
Pris: Extended;
RegPris: String;
RegLiter: String;

begin
DecimalSeparator := ',';
Reg :=TRegistry.Create;
with Reg do
Rootkey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Prisern', true);
RegPris:=reg.ReadString('Pris');
RegLiter:=Reg.ReadString('Liter');

        if colalille.Checked = true then begin
        Liter := ((StrTofloat(Edit8.Text) * 1.98) + strtofloat(RegLiter));
        Pris := (StrTofloat(Edit8.Text) * StrTofloat(Edit5.Text)) + StrTofloat(RegPris);
        ListBox1.Items.Insert(0, 'CocaCola 0.33L 6 Pack ' + Floattostr(Liter) + 'Liter Til ' + Edit5.Text + ' Kr');


        Reg.WriteString('Pris', floattostr(Pris));
        Reg.WriteString('Liter', floattostr(Liter));
        colalille.Checked := False;
        end;
reg.CloseKey;
Reg.Free

end;

Stoney

Også lige med den rigtige separator ( . )


procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
Liter: Extended;
Pris: Extended;
RegPris: String;
RegLiter: String;

begin
DecimalSeparator := '.';
Reg :=TRegistry.Create;
with Reg do
Rootkey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Prisern', true);
RegPris:=reg.ReadString('Pris');
RegLiter:=Reg.ReadString('Liter');

        if colalille.Checked = true then begin
        Liter := ((StrTofloat(Edit8.Text) * 1.98) + strtofloat(RegLiter));
        Pris := (StrTofloat(Edit8.Text) * StrTofloat(Edit5.Text)) + StrTofloat(RegPris);
        ListBox1.Items.Insert(0, 'CocaCola 0.33L 6 Pack ' + Floattostr(Liter) + 'Liter Til ' + Edit5.Text + ' Kr');


        Reg.WriteString('Pris', floattostr(Pris));
        Reg.WriteString('Liter', floattostr(Liter));
        colalille.Checked := False;
        end;
reg.CloseKey;
Reg.Free

end;

/Martin

martin >>

ikke hvis du bruger , når du taster i edit felterne

Stoney

Nej men var det ikke . han var ude efter ??

Hvis han skriver liter er 1,5 går jeg ud fra han har skrevet det via et edit felt

Stoney

jeg siger tak !! det virker som det skal !! i får en stak points vær !!!