Letzten Stellen eines Wortes löschen?

majolo · Verfasst: Do 03.10.02 17:51

Hi,

wie kann ich die letzten Buchstaben eines Wortes löschen?Wenn ich in einem Edit das Wort Delphi habe möchte ich die letzten 3 Stellen löschen.Also phi weg.Mit SQL geht so was glaube ich, aber nur in Verbindung mit DBs.
Danke im vorraus.
majolo

Gast Erhaltene Danke: 1

markieren

Quelltext

1:	Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 3);

majolo · Verfasst: Fr 04.10.02 10:10

Danke,dass ging ja einfach.Hätte ich auch selbst drauf kommen sollen.
Gruss
majolo

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Oder so:

markieren

Quelltext

1:	Delete(mein_string,Length(mein_string)-2,3);

Hat wahrscheinlich keine Vorteile gegenüber der schon genannten Möglichkeit, aber ich wollte es der Vollständigkeit halber noch posten.

MfG,
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

Man sollte vielleicht noch dazusagen, dass die Prozedur Delete nur Stringvariablen annimmt und keine Konstanten. Also würde folgender Code nicht funktionieren:

markieren

Quelltext

1:	Delete(Edit1.Text,Length(Edit1.Text)-2,3);

Wenn man die ganze Sache mit Delete machen will, muss man dann folgenden Code verwenden:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

var
  tmp: String;
begin
  tmp := Edit1.Text;
  Delete(tmp,Length(tmp)-2,3);
  Edit1.Text := tmp;
end;

_________________
Viele Grüße
Jakob

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Ups, habe ich vergessen. :oops:

Dann ist Copy wahrscheinlich in diesem Fall doch die bessere Alternative!

MfG,
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

ist auf jeden Fall kürzer :wink:

_________________
Viele Grüße
Jakob

majolo · Verfasst: Sa 05.10.02 17:23

dann haben wir die Reihe auf jeden Fall vollständig.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme