Ich hab ein kleines Problem.
Ich öffne eine Datei z.B. eine TXT und schreibe den Opendialog1.FileName in eine Edit1.
Dieser String hat ja nun .TXT drin stehen. Mit einem Button1 soll nun Wordpad geöffnet werden.
Nun kommts: Mit dem Opendialog1 kann ich aber auch BMPs öffen. Somit ist .BMP im String der Edit1.
Wenn ich nun auf den Button1 klicke soll Paint geöffnet werden.
Wie lese ich die Endung des Edit1.Textes aus um eine IF THEN routine zu erstellen?
Delphi-Quellcode:
var
i: Integer;
beginn
...
If Not Opendialog1.Execute Then Exit;
edit1.text :=Opendialog1.FileName;
for i:=0 to Length(Edit1.text) do
if (Edit1.text[i] in ('.BMP')) then
begin //hier Paint öffnen
end;
if (Edit1.text[i] in ('.TXT')) then
begin //hier Wordpad öffnen
end;
Irgendwas stimmt noch nicht, da ich folgende Fehlermeldung bekomme:
[Error] decmain.pas(222): Operator not applicable to this operand type
Zitat
Baum-Darstellung
