Edit Kommastellen ?

[delphis spassbremse]

ich hab dir grad mal ne function geschrieben

Delphi-Quellcode:

function zweistellen(zahl: String) : String;
var zpos, I: Integer; gesamt: String;
begin
  zpos := pos(',', zahl);
  if zpos <> 0 then
  begin
      for I := 1 to zpos - 1 do
      begin
      gesamt := gesamt + zahl[I];
      end;
  gesamt := gesamt + ',' + zahl[zpos + 1] + zahl[zpos + 2];
  result := gesamt;
  end else
  begin
    result := Zahl;
  end;
end;

Aufgerufen wird die Funktion durch: (z.B.)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := zweistellen('45320,94333');
end;