| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не работает процедура [D7, XP]

Adios ©   (2006-03-06 18:06:00) 

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

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.

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

---

Плохиш   (2006-03-06 18:35:00) [1]

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

AnsiUpperCase + F1

---

Fay   (2006-03-06 18:34:00) [2]

LOL

---

Desdechado   (2006-03-06 18:33:00) [3]

FileExt := Ansi UpperCase
if FileExt='. jpg' then

---

Adios   (2006-03-06 18:28:00) [4]

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

---

Desdechado   (2006-03-06 18:25:00) [5]

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

---

Adios   (2006-03-06 18:15:00) [6]

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

---

Desdechado   (2006-03-06 18:10:00) [7]

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

---

Наверх