*.txt auch in If abfrage ?

[Äfan]

Hi,

Ich habe folgendes vor: Ich will überprüfen ob die Datei von einem bestimmten typ ist. Also ich habe z.B. den Dateinamen "MeinText.txt" in Edit1. Mir geht es darum, wenn der Dateiname Irgendwas.txt ist soll was passieren. Ich habe es schon mit '*.txt' also If Edit1.Text = '*.txt' then probiert, nur des geht net.

MFG

[jfheins]

[oh]Get ExtractFileExt[/oh] oder so könnte dir helfen ...

(siehe Jelly's Post weiter unten ...)

[Äfan]

Geht das net auch so, das er das mit dem text aus edit macht ?

[Matze]

Zitat:

Zitat von Äfan

Geht das net auch so, das er das mit dem text aus edit macht ?

Nur so, aber das ist nicht 100% sicher, da im Dateinamen selbt ja auch ".txt" vorkommen kann (Hallo.txt.exe)

Delphi-Quellcode:

if Pos('.txt', Edit1.Text) > 0 then

Natürlich ginge auch die FindFirst-Funktion, aber das ist übertrieben. ;)

[Äfan]

OK Danke

Zitat:

Natürlich ginge auch die Schau in die Delphi-HilfeFindFirst-Funktion, aber das ist übertrieben.

Ja, das wär echt zu viel ! :-D

MFG

[Jelly]

Delphi-Quellcode:

var
 ext : string ;
begin
    ext := uppercase (ExtractFileExt(Dateiname)) ;
    if ext = '.TXT' then ...
    if ext = '.XYZ' then ...
end ;

Was ist daran auszusetzen?

[BenjaminH]

Wie wärs damit:

Delphi-Quellcode:

If Pos('.txt',Edit1.Text)>0 Then
Begin
End;

[Edit]Ups, sorry, bei mir wurden nur die ersten zwei Beiträge angezeigt, und ich dachte das wäre noch nicht genannt worden[/Edit]

[Äfan]

@BenjaminH: Schau mal drei beiträge weiter oben :wink:

@Jelly: Werde ich gleich mal probieren.

MFG