String in Edit finden

[DRPEnc]

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

[Interceptor]

Diese Routine erübrigt sich, denn IMHO erkennt ShellExecute das Format der jeweiligen Datei selbstständig, und öffnet diese auch im dementsprechend korrektem Programm.

[Nikolas]

Du könntest mit [oh]pos[(oh] die letzten drei Zeichen auslesen. Wenn du nur .txt. oder .bmp hast, dürfte das dann recht schnell gehen. Wenn's mehr wird, kannst du ja einfach eine Case-Anweisung bauen