Buchstaben löschen

[NikoMitDaMacht]

Hi!
Ich will den text einer edit ohne die letzte 2 buchstaben in ein label setzen.

[sakura]

Dann suche mal nach copy length. Das sollte helfen

......

[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;

Ratte

//Edit: s14 hat ja recht...

[s14]

oder length(s)

[Matze]

Nimm am Besten sakuras Vorschlag:

Label1.Caption := Copy(Edit1.Text, 0, Length(Edit1.Text) - 2); PS: Ich poste das hier, weil etwas "umständliche" Vorschläge geposted wurden.
Normalerweise lasse ich auch danach suchen.


Edit: @NikoMitDaMacht: Könntest du bitte einen kürzeren "Wohnort" angeben, die linke Spalte ist so breit.

[IngoD7]

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);

[sakura]

Zitat von Matze:

Edit: @NikoMitDaMacht: Könntest du bitte einen kürzeren "Wohnort" angeben, die linke Spalte ist so breit.

Wird geändert

......

[Matze]

Zitat von sakura:

Wird geändert

Das müsste man glatt in die "To-Do-Liste" aufnehmen.

@IngoD7:
Klasse, wirklich super, dass du dir die Mühe gemacht hast, diese 3 Vorschläge zu überprüfen und zu berichtigen.

[IngoD7]

Zitat von Matze:

Klasse, wirklich super, dass du dir die Mühe gemacht hast, diese 3 Vorschläge zu überprüfen und zu berichtigen.

Na, dann setze ich doch noch zur Info einen drauf :

Wenn Edit1.Text nur ein Zeichen lang ist (also allgemein, wenn weniger Zeichen vorhanden sind, als hinten weggeschnitten werden sollen), dann putzen die Copy- und die LeftStr-Lösungen dieses Zeichen weg. Die Delete-Lösung aber lässt es stehen!