Bonjour voila j’ais un petit problème simple mais arrive pas à le résoudre
Quand je click sur mon TButton1 la liste des image du répertoire A s’affiche bien mais quand après je click sur le deuxième s’est à dire le TButton2 il me plante mais il ne me mais pas d’erreur et je n’arrive pas à résoudre ceux problème
Sa me dit :
Le projet1.exe a provoqué une classe d’exception EInError avec le message ‘Nom de Fichier Incorrect’ Processus stoppé.
Un petit coup de pouce serai sympa merci
procedure TForm2.FileListBox1Click(Sender: TObject);
var
FileExt: string[4];
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileListBox1.Filename));
if (FileExt = '.BMP') or (FileExt = '.ICO') or (FileExt = '.WMF') or
(FileExt = '.EMF') then
begin
Image1.Picture.LoadFromFile(FileListBox1.Filename);
Caption := FormCaption + ExtractFilename(FileListBox1.Filename);
if (FileExt = '.BMP') then
begin
Caption := Caption +
Format(' (%d x %d)', [Image1.Picture.Width, Image1.Picture.Height]);
Form2.Image1.Picture := Image1.Picture;
end
else
if FileExt = '.ICO' then
begin
Icon := Image1.Picture.Icon;
end;
if (FileExt = '.WMF') or (FileExt = '.EMF') then
end;
end;
procedure TForm2.FileEditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
FileListBox1.ApplyFilePath(FileEdit.Text);
Key := #0;
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
FormCaption := Caption + ' - ';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Filelistbox1.FileName := '.\Img\A\';
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Filelistbox1.FileName := '.\Img\A\';
end;