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?

[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 ...

[Delphi-Laie]

Ich würde vorher noch mit lowercase "normieren", denn so, wie es hier angeboten wird, wird z.B. ".EXE" nicht erfaßt, obwohl das eine zulässige Executable-Endung ist.

[Daniel]

Ich nutze für sowas gern "EndsText()" aus der Unit System.StrUtils.
Wobei sich diese Funktion nur um Strings kümmert - ob das nun ein Dateiname ist, interessiert sie nicht.

[DeddyH]

Delphi-Quellcode:

uses StrUtils;

...

if AnsiEndsText('.exe', s) then
  ...

[edit] @Cheffe [/edit]