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

...:cat:...

[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) :wink:

[Matze]

Nimm am Besten sakuras Vorschlag:

Delphi-Quellcode:

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. :twisted: :roll:

[IngoD7]

Zitat:

Zitat von Matze

Delphi-Quellcode:

Label1.Caption := Copy(Edit1.Text, 0, Length(Edit1.Text) - 2);

Es funktioniert (Dank der Toleranz des Copy-Befehls), aber schöner/richtiger ist

Delphi-Quellcode:

Label1.Caption := Copy(Edit1.Text, 1, Length(Edit1.Text) - 2);

-------------------------------------------------------------

Zitat:

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

Delphi-Quellcode:

Label1.Caption:=LeftStr(Edit1.Text, Length(Edit1.Text)-2);

[sakura]

Zitat:

Zitat von Matze

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

Wird geändert ;)

...:cat:...

[Matze]

Zitat:

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. :thumb:

[IngoD7]

Zitat:

Zitat von Matze

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

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!