So etwas wie "Ausschneiden" gibt es nicht, wenn du deinen String nur kürzen möchtest,
könntest du SetLength() benutzen ansonsten auch Copy() oder du setzt ein 0 Byte.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i, l: Integer;
var s: String;
begin
s := Edit1.Text;
if s <> '' then
begin for i := Length(s) downto 1 do
begin if s[i] <> '.' then
begin
l := i;
Break;
end;
end;
SetLength(s, l);
Edit1.Text := s;
end;
end;