String: Zeichen ab einer bestimmten Position kürzen

[mlspider]

Hallo,

also heute lege ich mir fast die Karten.

Ich lasse mir ein String in einen Label ausgeben. "Heute-ist-ein-schöner-Tag-Wetter".
Ich stehe jetzt vor dem Problem das Wort Wetter wegzuschneiden. Kann irgendwer helfen?

Danke.

[alleinherrscher]

Delphi-Quellcode:

copy(Label1.caption,0,pos('Wetter',Label1.caption));

Grüße und schönes WE

[himitsu]

nicht vergessen ... die böse 1 :zwinker:

Delphi-Quellcode:

Copy(Label1.Caption, 1, Pos('Wetter', Label1.Caption) - 1);

aber um es mal andersrum anzugehn :angel:

Zitat:

Zitat von mlspider

das Wort Wetter wegzuschneiden.

Delphi-Quellcode:

// String holen
S := Label1.Caption;
// Position holen
i := Pos('Wetter', S);
// wegschneiden
Delete(S, i, Length(S) - i + 1);
// geänderten String zurückgeben
Label1.Caption := S;

etwas gekürzt

Delphi-Quellcode:

// String holen
S := Label1.Caption;
// wegschneiden
// statt Length(S) könnte man auch z.B. 88888 nehmen
// es muß nur lang/groß genug sein ... Delphi paßt es eh nach unten an ^^
Delete(S, Pos('Wetter', S), Length(S));
// geänderten String zurückgeben
Label1.Caption := S;

[alleinherrscher]

Zitat:

Zitat von himitsu

nicht vergessen ... die böse 1 :zwinker:

Delphi-Quellcode:

Copy(Label1.Caption, 1, Pos('Wetter', Label1.Caption) - 1);

Das merkt man doch dann, wenn das W von wetter stehen bleibt oder der Compiler meckert :P
Nene, schon gut, hast ja recht, himitsu! :thumb:

//edit: By the way: Ob die Startposition auf 0 oder 1 steht macht bei mir keinen Unterschied...

[sx2008]

Und was passiert, wenn der auszuschneidende String nicht im Text vorhanden ist?
Nach Murphys Gesetz wird das sicher genau dann passieren, wenn man's am wenigsten brauchen kann...

[mlspider]

Ja Leute, danke erst mal. Aus der 0 hatte ich schon eine 1 gebastelt. Das fiel mir auch sofort auf. :)

@sx2008: Wetter war auch nur ein Beispiel, aber das wegzuschneidene Teil ist in der Quelle immer vorhanden. Von daher blebt diesesmal Murphy aussen vor. :mrgreen: