Duvida de Arquivo

Delphi

27/04/2003

olá, eu tenho um Opendialog que abre RTF e TXT. Como faço para dar uma condição pra um e pra outro? ex: se abrir RTF faça isso? me ajudem por favor
Hamden


Hamden

Hamden

Curtidas 0

Respostas

Rebel_inside

Rebel_inside

27/04/2003

se eu entendi direito, faça o seguinte:
if (OpenDialog1.Execute) then begin
  if (AnsiSameText(ExtractFileExt(OpenDialog1.Filename), ´.RTF´) then begin
    { faz o que tem que ser feito }
  end else if (AnsiSameText(ExtractFileExt(OpenDialog1.Filename), ´.TXT´) then begin 
    { faz o que tem que ser feito }
  end else begin
    ShowMessage(´???´);
  end;
end;

acho que é isso
[]´s


GOSTEI 0
POSTAR