Prüfen ob string auf '.exe' endet

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

[Fritzew]

Dafür bieten sich Unittests förmlich an:

Delphi-Quellcode:

unit Unit30;

interface
uses
  DUnitX.TestFramework;

type

  [TestFixture]
  TExtensionTests = class(TObject) 
  public
    [Test]
    [TestCase('TestA1','test,test.exe')]
    [TestCase('TestA2','test.,test.exe')]
    [TestCase('TestA3','test.e,test.exe')]
    [TestCase('TestA4','test.e.,test.e.exe')]

    procedure Test1(const Value, res : string);


    [Test]
    [TestCase('TestB1','test,test.exe')]
    [TestCase('TestB2','test.,test.exe')]
    [TestCase('TestB3','test.e,test.exe')]
    [TestCase('TestB4','test.e.,test.e.exe')]
    procedure Test2(const Value, res : string);


  end;

implementation
 uses Sysutils;

const
  lext = '.exe';


function ChangeExtension(const Value : string; const extension : string) : string;
begin
  result := ChangeFileExt(Value, extension);
end;


function ChangeExtensionEndsText(const Value : string; const extension : string) : string;
begin
 result := Value;
 if AnsiLowerCase(ExtractFileExt(result)) <> '.exe' then
  begin
    result := result + '.exe';
  end;
end;


procedure TExtensionTests.Test1(const Value, res : string);
Var
    lTestResult : String;

begin
 lTestResult :=   ChangeExtension(value, lext);
 assert.AreEqual(res, lTestResult);
end;


procedure TExtensionTests.Test2(const Value, res : string);
Var
    lTestResult : String;

begin
 lTestResult :=   ChangeExtensionEndsText(value, lext);
 assert.AreEqual(res, lTestResult);
end;

initialization
  TDUnitX.RegisterTestFixture(TExtensionTests);
end.

Wenn man erst mal angefangen hat Tests zu schreiben wird man förmlich süchtig danach

[SneakyBagels]

Zitat:

Dafür bieten sich Unittests förmlich an:

Man kann auch mit Kanonen auf Spatzen schießen

[Ydobon]

Wenn in XE 2 schon dabei,
function EndsText(const ASubText, AText: string): Boolean; aus den StrUtils. Ignoriert von sich aus die Schreibweise.

Edit: Die Aktualisierung der Beiträge im Forum könnte etwas schneller sein.