Finde FilType der er valgt?

Jeg har set det i 100 programmer... fx. Notesblok... det MÅ kunne lade sig gøre...

if (LowerCase(ExtractFileExt('c:\hest.test')) = LowerCase('.txt')) or (LowerCase(ExtractFileExt('c:\hest.test')) = LowerCase('.php')) or (LowerCase(ExtractFileExt('c:\hest.test')) = LowerCase('.php4')) then
    ShowMessage('Filnavnet er OK')
  else
    ShowMessage('Filnavnet er ikke OK');

HVad mener du nu med C:\hest.test?

Og desuden kan jeg ikke rigtigt bruge det der... for det er en løsning der automatisk SÆTTER ext'en PÅ hvis man ikke har skrevet en... ikke en der tjekker!

var
  FileName, FileExt: String;
begin
  FileName := 'c:\hest.test';
  FileExt := LowerCase(ExtractFileExt('c:\hest.test'));
  if (FileExt = LowerCase('.txt')) or (FileExt = LowerCase('.php')) or (FileExt = LowerCase('.php4')) then
    ShowMessage('Filnavnet er OK')
  else
    FileName := FileName + '.php';
end;

Jamen det skal virke med ALLE de der ext både .txt .php og .php4

Altså hvis du skriver Fil i filnavn og har valgt tekst filer i filter så sætter den auto .txt på og det samme med .php og .php4... kan ikke lige se at de du skrev her over ville virke hvis man valgte php filer i filter og skrev fx. fil... så burde den lave det om til fil.php og det er det jeg ikke kan...

Har kigget på SaveDialogs DefaultEXT event, det ser nogenlunde rigtigt ud men hvordan kan jeg have flere (.txt hvis tekst filer er valgt og .php hvis php filer er valgt...)!

Man skal vist ind og kigge på FilterIndex; og Filter; ...

Jeg har tjekket filterindex... det er bare hvilket filter (tekst filer/php filer) der skal være standard... og det hjælper ikke at ændre det (har prøvet).. og filter ændrer sig vel ikke i run time... det er jo en design time event hvor man sætter filteret... eller hvad??

Jeg er ved at prøve og finde noget :-)

Ok... se evt. om du kan finde noget om DefaultEXT tror måske det er det men beskrivelsen er dårlig...

Det har jeg prøvet ...

Ok se om du kan finde ud af noget andet der virker :D (hvis du gider? :D)!

Det er en lidt rodet kode, men så langt er jeg nået:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, FileExt, S: String;
  StringList: TStringList;
  I: Integer;
begin
  if SaveDialog1.Execute then
  begin
    FileExt := LowerCase(SaveDialog1.Filter);
    StringList := TStringList.Create;
    FileExt := StringReplace(FileExt, '#', '#1', [rfReplaceAll] + [rfIgnoreCase]);
    FileExt := StringReplace(FileExt, ',', '#2', [rfReplaceAll] + [rfIgnoreCase]);
    FileExt := StringReplace(FileExt, ' ', '#3', [rfReplaceAll] + [rfIgnoreCase]);
    FileExt := StringReplace(FileExt, '|', ',', [rfReplaceAll] + [rfIgnoreCase]);

    Caption := FileExt;
    StringList.CommaText := FileExt;

    StringList.Text := StringReplace(StringList.Text, '#3', ' ', [rfReplaceAll] + [rfIgnoreCase]);
    StringList.Text := StringReplace(StringList.Text, '#2', ',', [rfReplaceAll] + [rfIgnoreCase]);
    StringList.Text := StringReplace(StringList.Text, '#1', '#', [rfReplaceAll] + [rfIgnoreCase]);
    I := 0;

    while I < StringList.Count do
    begin
      StringList.Delete(I);
      Inc(I, 1);
    end;
    for I := 0 to StringList.Count - 1 do
    begin
      S := StringList[I];
      if Pos(',', S) > 0 then
        S := Copy(S, 1, Pos(',', S) - 1);
      if Pos('*', S) = 1 then
        Delete(S, 1, 1);
      StringList[I] := S;
    end;
    ListBox1.Items.Assign(StringList);
    StringList.Free;
//    SaveDialog1.FilterIndex; SaveDialog1.Filter;
    FileName := SaveDialog1.FileName;
    FileExt := LowerCase(ExtractFileExt(FileName));
    if (FileExt = LowerCase('.txt')) or (FileExt = LowerCase('.php')) or (FileExt = LowerCase('.php4')) then
      ShowMessage(FileName + ' *')
    else
    begin
      FileName := FileName + '.php';
      ShowMessage(FileName);
    end;
  end;
end;

Det her virker halvt:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, FileExt, S: String;
  StringList: TStringList;
  I: Integer;
begin
  if SaveDialog1.Execute then
  begin
    FileExt := LowerCase(SaveDialog1.Filter);
    StringList := TStringList.Create;
    FileExt := StringReplace(FileExt, '#', '#1', [rfReplaceAll] + [rfIgnoreCase]);
    FileExt := StringReplace(FileExt, ',', '#2', [rfReplaceAll] + [rfIgnoreCase]);
    FileExt := StringReplace(FileExt, ' ', '#3', [rfReplaceAll] + [rfIgnoreCase]);
    FileExt := StringReplace(FileExt, '|', ',', [rfReplaceAll] + [rfIgnoreCase]);

    Caption := FileExt;
    StringList.CommaText := FileExt;

    StringList.Text := StringReplace(StringList.Text, '#3', ' ', [rfReplaceAll] + [rfIgnoreCase]);
    StringList.Text := StringReplace(StringList.Text, '#2', ',', [rfReplaceAll] + [rfIgnoreCase]);
    StringList.Text := StringReplace(StringList.Text, '#1', '#', [rfReplaceAll] + [rfIgnoreCase]);
    I := 0;

    while I < StringList.Count do
    begin
      StringList.Delete(I);
      Inc(I, 1);
    end;
    for I := 0 to StringList.Count - 1 do
    begin
      S := StringList[I];
      if Pos(',', S) > 0 then
        S := Copy(S, 1, Pos(',', S) - 1);
      if Pos('*', S) = 1 then
        Delete(S, 1, 1);
      StringList[I] := S;
    end;
    ListBox1.Items.Assign(StringList);

    FileName := SaveDialog1.FileName;
    FileExt := StringList[SaveDialog1.FilterIndex - 1];
    if StringList.IndexOf(LowerCase(ExtractFileExt(SaveDialog1.FileName))) >-1 then
      ShowMessage(FileName + ' *')
    else
    begin
      FileName := FileName + FileExt;
      ShowMessage(FileName);
    end;
    StringList.Free;
  end;
end;

Den kan endnu ikke finde ud af det når en filtype har mere end et efternavn, da kan den kun med det første...

Forresten, slet ListBox1.Items.Assign(StringList);, det er kun noget jeg bruger til mine tests :-)

Hmm... fedt nok at du har gidet at lave sådan en kode til mig (prøver den senere, ser film) men tror du ikke det kan gøres på en simpel måde?

Hmm... fandt ud af en måde med DefaultEXT... det skulle bare være det samme som Filter...

Synes godt du kan få lidt point for alt den tid du har brugt her selvom jeg selv fandt "svaret", så vi deler...!