Zitat von
Matze:
Label1.Caption := Copy(Edit1.Text, 0, Length(Edit1.Text) - 2);
Es funktioniert (Dank der Toleranz des Copy-Befehls), aber schöner/richtiger ist
Label1.Caption := Copy(Edit1.Text, 1, Length(Edit1.Text) - 2);
-------------------------------------------------------------
Zitat von
Ratte:
Hi,
das müsste eigentlich funzen:
Delphi-Quellcode:
var s:string;
begin
s:=Edit1.Text;
delete(s,length(s)-2,2);
Label1.Caption:=s;
Das radiert das dritt- und das vorletzte Zeichen weg. Korrekt wäre
Delphi-Quellcode:
var s:string;
begin
s:=Edit1.Text;
delete(s,length(s)-1,2);
Label1.Caption:=s;
end;
----------------------------------------------------------------
Und dann ginge z.B. noch
Label1.Caption:=LeftStr(Edit1.Text, Length(Edit1.Text)-2);