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;