Meine Drag'n'Drop-Funktion ergänzen

[DeddyH]

Nicht, dass ich wüsste. Aber Du könntest innerhalb der Schleife alle Dateien abarbeiten und nach der ersten stimmigen Endung aufhören.

[AlexII]

Ok, aber ich verstehe nicht, wieso bekomme ich hier ne "nein" Meldung?

Delphi-Quellcode:

    showmessage(Extension);

    if Extension='.crp' then
    begin
    showmessage('ja');
    end else
        begin
        showmessage('nein');
        end;

[DeddyH]

Wie sieht es so aus?if AnsiSameText(trim(Extension), '.crp') then

[AlexII]

Wow ja es geht

Wo liegt denn der Unterschied?

[DeddyH]

Ich schneide evtl. Steuerzeichen vorn und hinten ab und unterscheide nicht zwischen Groß- und Kleinschreibung (ich denke mal, letzteres war auch das Problem).

[AlexII]

Aber komischerweise funktioniert die Abfrage, also

Zitat:

if ExtractFileExt(Buffer)='.crp' then

im Code wo ich per OpenDialog importiere.

[DeddyH]

Darauf würde ich mich trotzdem nicht verlassen. Nimm AnsiSameText und Du bist auf der sicheren Seite (siehe oben).

[AlexII]

Ok hab das so gemacht... so aber das Problem im Post #10 besteht immer noch.

[daywalker9]

Du kommst nun ja in dein '.crp' rein. NUn setzte mal wie DeddyH schon gesagt hat einen Haltepunkt und Steppe mit F8 durch

[AlexII]

So ich hab's....

Also im Post #10 hatte ich das Problem weil die Abfrage falsch war und die Datei falsch geladen wurde, deswegen der Fehler, mit

Zitat:

if AnsiSameText(trim(Extension), '.crp') then

klappt jetzt alles, wird alles richtig geladen. Im Post #28 war ein Denkfehler, also es läuft alles.