AnsiLeftStr funktioniert nicht

[JamesC]

Guten Abend,

ich bin mit Delphi 6 PE unterwegs und würde gerne einen AnsiString etwas zerlegen und habe hierzu "AnsiEndStr", etc. gefunden. http://www.delphibasics.co.uk/ByFunc...ings&Sub=Calcs

Einige dieser Methoden funktionieren, wie beispielsweise AnsiContainsStr, nachdem ich bei den uses StrUtils hinzugefügt habe.
Leider würde ich unter anderem AnsiLeftStr/AnsiRightStr benötigen, bei welcher Verwendung ich die Fehlermeldung "Undefinierter Bezeichner: 'AnsiLeftStr'" bekomme.

Liegt das nun an der StrUtils.dcu (in welcher unter anderem AnsiLeftStr steht), an der AnsiStrings.pas (http://docwiki.embarcadero.com/VCL/2...gs.AnsiLeftStr) oder an etwas anderem?

Bekomme ich dies zum Laufen indem ich ein paar wenige Dateien austausche, eine kleine Funktion erstelle oder bräuchte ich eine andere Delphi-Version?


Mit freundlichen Grüßen
JamesC

[madtom]

Hallo,

ich habe leider kein Delphi 6. In Delphi 2007 and XE2 sind diese beiden Funktionen in der StrUtils.pas zu finden, die du ja bereits in die Uses-Klauses aufgenommen hattest. Sollten sie wirklich nicht vorhanden sein, würde ich mir die Funktionen selber zusammenbauen. Ansätze dafür solltest Du in diversen Foren finden.

Gruß

[jaenicke]

Zitat von JamesC:

ich bin mit Delphi 6 PE unterwegs und würde gerne einen AnsiString etwas zerlegen und habe hierzu "AnsiEndStr", etc. gefunden.

Erstens bedeutet das Ansi bei neueren Delphiversionen nicht, dass es für AnsiStrings ist. Zweitens: Gibt es auch nicht EndsStr in deiner StrUtils?
Und drittens kannst du diese Funktionen ja genauso gut mit Copy und Pos selbst durchführen, das funktioniert in der fertigen Unit ja auch nicht grundlegend anders, nur vielleicht mal besser optimiert.

[JamesC]

Hi,

@jaenicke: Ich wollt's nur erwähnt haben, da ich es eben für einen AnsiString brauch. Und ja, auch EndsStr funktioniert bei mir.

Dann werd ich mal versuchen mir diese Funtkion selbst zu basteln.

Vielen Dank euch beiden.

JamesC

[jaenicke]

Zitat von JamesC:

@jaenicke: Ich wollt's nur erwähnt haben, da ich es eben für einen AnsiString brauch. Und ja, auch EndsStr funktioniert bei mir.

Dann werd ich mal versuchen mir diese Funtkion selbst zu basteln.

Wenn EndsStr bei dir geht, verstehe ich das Problem irgendwie nicht.

[Sir Rufo]

Solche AnsiString Funktionen können auch überladen sein, oder sich in einer separaten Unit befinden AnsiStrings.EndsStr (min. ab XE2)

[JamesC]

Ich hätte gerne beispielsweise die letzten 3 Zeichen meines Strings separiert. Diese Möglichkeit gibt einem AnsiRightStr.
AnsiEndsStr hingegen gibt mir True oder False zurück, je nachdem ob der String auf eine bestimmte Zeichenfolge endet. Das ist nicht das was ich gerne hätte.

@Sir Rufo: Auf das Embarcadero-Wiki bin ich auch bereits gestoßen. Hilft mir das irgendwie weiter?

[mkinzler]

sLetzte3 := Copy( s, Length( s) - 2, 3);

[jaenicke]

So, ich hab mal nachgeschaut...LastThreeChars := RightStr(Str, 3); Auch Delphi 6 hat schon die ganzen Funktionen wie RightStr, nur halt (da noch kein Unicode verfügbar war) ohne Ansi vornedran.

[JamesC]

Dankeschön. Somit ist das Problem für mich gelöst