Prüfen ob string auf '.exe' endet

[zobien123]

Hi

folgendes Problem: Ich möchte einen String aus einem Edit-Feld prüfen, ob er auf '.exe' endet, wenn nicht soll '.exe' angehängt werden. Gibt es irgendwie eine Funktion, mit der man von rechts nach links die Zeichen überprüfen kann, ob diese '.exe' sind?

Vielen Dank für eure Antwort

[Neutral General]

if AnsiLowerCase(ExtractFileExt(str)) = '.exe' then

[Poelser]

Einfach aus SysUtils ChangeFileExt die Extension ändern. Wenn die bereits auf .exe lautet, bleibt sie so wie sie ist.

HTH, Poelser

[Aviator]

Zitat von Poelser:

Einfach aus SysUtils ChangeFileExt die Extension ändern. Wenn die bereits auf .exe lautet, bleibt sie so wie sie ist.

HTH, Poelser

Das ist aber sehr radikal. Welchen Vorteil erhoffst du dir davon?

[Poelser]

Zitat von Aviator:

Zitat von Poelser:

Einfach aus SysUtils ChangeFileExt die Extension ändern. Wenn die bereits auf .exe lautet, bleibt sie so wie sie ist.

HTH, Poelser

Das ist aber sehr radikal. Welchen Vorteil erhoffst du dir davon?

Leicht lesbarer Einzeiler.

[Aviator]

Zitat von Poelser:

Leicht lesbarer Einzeiler.

Allerdings mit einer nicht so ganz zufriedenstellenden Lösung.

[zobien123]

Zitat:

if AnsiLowerCase(ExtractFileExt(str)) = '.exe' then

Klingt gut, jedoch bekomme ich eine Fehlermeldung:

Zitat:

E2015 Operator ist auf diesen Operandentyp nicht anwendbar

<Edit> Ich kann wohl nicht AnsiLowerCase(ExtractFileExt(s)) = '.exe' vergleichen</Edit>

[zobien123]

Okay hab es. War ein Dummheitsfehler

Code:

 
  if  AnsiLowerCase(ExtractFileExt(s)) <> '.exe' then
  begin
    s := s + '.exe';
  end;

Danke für die Hilfe

[hoika]

Hallo,
mit Pos oder Copy wäre das auch gegangen

if Pos('.exe',S)=Length(S)-4 (oder -3 )
if Copy(S,Length(S)-4,4)='.exe'

Das Upper darf der TE selber einfügen ...