Zitat von
Noobinator:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var x:string;
begin
x:=edit1.Text;
delete(x,11,100000);
label1.Caption:=x;
end;
damit schneidest du alle zeichen ab dem elften ab. auch wenn das ganze recht sinnlosprogrammiert ist
Doch besser
delete(x,11,length(x));
Falls wiedererwarten der String länger als 100000 zeichen lang sein sollte^^