Timage проверка

[mitiay]

Подскажите как проверить загружена ли картинка в image1 если да то грузим в image2
если нет то загружаем в image1

Как проверить на пустоту нашел, а как на занятость?

if Image1.Picture.Graphic=nil then

[Stilet]

а как на занятость?

<>nil /.......

[mitiay]

  S:=Memo1.Lines[0];
  S2:=Memo1.Lines[1];
  if (s='1(2)') or (s2='1(2)')then
  if Image1.Picture.Graphic=nil then
Image1.Picture.LoadFromFile((ExtractFilePath(Application.ExeName)+'img\cart\1(2).jpg'));
  if Image1.Picture.Graphic<> nil then
  Image2.Picture.LoadFromFile((ExtractFilePath(Application.ExeName)+'img\cart\1(2).jpg'));
  if (s='1(3)') or (s2='1(3)')then begin
  if Image1.Picture.Graphic= nil then    begin
Image1.Picture.LoadFromFile((ExtractFilePath(Application.ExeName)+'img\cart\1(3).png'));
  if Image1.Picture.Graphic<> nil then begin
  Image2.Picture.LoadFromFile((ExtractFilePath(Application.ExeName)+'img\cart\1(3).png'));
     if (s='1(4)') or (s2='1(4)')then
  if Image1.Picture.Graphic= nil then
Image1.Picture.LoadFromFile((ExtractFilePath(Application.ExeName)+'img\cart\1(4).png'));
  if Image1.Picture.Graphic<> nil then
  Image2.Picture.LoadFromFile((ExtractFilePath(Application.ExeName)+'img\cart\1(4).png'));

Что не так делаю? пишу 1(2) 1(3) все равно загружает картинки 1(2) и 1(4)

[Аватар]

Явная куралесь с begin и end. Отформатируй нормально код и смотри где пропустил, а где лишний

[mitiay]

Сообщение от Аватар

Явная куралесь с begin и end. Отформатируй нормально код и смотри где пропустил, а где лишний

Голова уже кружится ))) Уже по всякому пробывал или вообще не показывается или вот такая фигня

[Stilet]

if (s='1(2)') or (s2='1(2)')then
if Image1.Picture.Graphic=nil then
Image1.Picture.LoadFromFile((Extrac tFilePath(Application.ExeName)+'img \cart\1(2).jpg'));
if Image1.Picture.Graphic<> nil then
Image2.Picture.LoadFromFile((Extrac tFilePath(Application.ExeName)+'img \cart\1(2).jpg'));

Ану-ка опиши на словах, как это должно работать?
Я не понял в чем разница, я бы писал так:

 path:=(ExtractFilePath(Application.ExeName)+'img\cart\';
 with Image1.Picture do begin
  if s='1(2)' then LoadFromFile(path+s+'.jpg')) else
  if s2='1(2)' then LoadFromFile(path+s2+'.jpg')) else
  ....
 end;

[mitiay]

Сообщение от Stilet

Ану-ка опиши на словах, как это должно работать?
Я не понял в чем разница, я бы писал так:

 path:=(ExtractFilePath(Application.ExeName)+'img\cart\';
 with Image1.Picture do begin
  if s='1(2)' then LoadFromFile(path+s+'.jpg')) else
  if s2='1(2)' then LoadFromFile(path+s2+'.jpg')) else
  ....
 end;

Спасибо так и сделал

[min@y™]

Голова уже кружится ))) Уже по всякому пробывал или вообще не показывается или вот такая фигня

явный признак говнокода.

бесплатный совет: при появлении такого признака удалить весь говнокод и написать хороший код с нуля - сэкономишь время и нервы.