string endet mit...

[markus lemcke]

tach,

ich möchte überprüfen ob am ende eines strings ein 'and' steht und wenn ja, dieses löschen!
wie macht man das am besten?

gruß

markus

[Bernd Schulz]

Hallo!<br>
<PRE>
function TForm1.DelAnd(help : String): string;
var
ende: Integer;
begin
if length ( help ) < 3 then begin
result := help;
exit;
end;
ende := length ( help );
if help[ende-2] = 'a' then begin
if help[ende-1] = 'n' then begin
if help[ende] = 'd' then begin
delete ( help, ende-2, 3 );
end;
end;
end;
result := help;
end;
</PRE>
BYE BERN

[Ralph Staudte]

Markus,

oder Du verwendest die Funktion Copy:

<PRE>
function DelTokenRight(S, Token: String): String;
var
StringLen: Integer;
TokenLen: Integer;
begin
StringLen := Length(S);
TokenLen := Length(Token);

if StringLen < TokenLen then
begin
Result := S;
Exit;
end;

if Copy(S, ((StringLen - TokenLen) + 1), TokenLen) = Token then
Result := Copy(S, 1, (StringLen - TokenLen))
else
Result := S;
end;
</PRE>

Jetzt kannst Du über
<PRE>
String := DelTokenRight('Alles hat ein And', 'And');
</PRE>

Deinen String prüfen und kürzen.
Ich hoffe, ich habe keinen Denkfehler drin - ich habe die Funktion nicht geprüft!!

Ralp

[markus lemcke]

danke ihr beiden!
@ralph dein funktion gefällt mir gut, werde sie mal testen!

gruß

marku

[Ralph Staudte]

Markus,

freut mich - gibst Du Bescheid, obs funktioniert hat?? Viel Glück...

Ralp

[markus lemcke]

funzt! werde ich zuhause in meine private bib mit aufnehmen

gruß

marku