Скачать: CL | DM;

Не работает процедура   Найти похожие ветки 

← →
Adios ©   (2006-03-06 18:06) [0]

Компилятор на процедуру не ругается, но в запущеном проекте она не работает:

procedure Tmenu1.choiseClick(Sender: TObject);
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileListBox1.Filename));
 if FileExt=".jpg" then
 begin
 label2.Caption:=FileExt;
 JPEGtoBMP(filelistbox1.FileName);------- описанная процедура, она  работает, проверял отдельно
 end;
 if FileExt=".bmp" then
 begin
 label2.Caption:=FileExt;
 end;
panel1.SetFocus
end;
end.

помогите найти ошибку

---

← →
Desdechado ©   (2006-03-06 18:10) [1]

чрезвычайно понятное описаниепроблемы, я аж растерялся от обилия информации

---

← →
Adios ©   (2006-03-06 18:15) [2]

если убрать If then, то она работать начинает, тока если это будет не jpg, то в запущеном проекте вылетает ошибка

---

← →
Desdechado ©   (2006-03-06 18:25) [3]

см. сюда
FileExt := AnsiUpperCase
if FileExt=".jpg" then

---

← →
Adios ©   (2006-03-06 18:28) [4]

а по точнее можно?

---

← →
Desdechado ©   (2006-03-06 18:33) [5]

FileExt := AnsiUpperCase
if FileExt=".jpg" then

---

← →
Fay ©   (2006-03-06 18:34) [6]

LOL

---

← →
Плохиш ©   (2006-03-06 18:35) [7]

> Adios ©   (06.03.06 18:28) [4]
> а по точнее можно?

AnsiUpperCase + F1

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c