Мастера, СРОЧНО!!!

← →
Andy BitOff © (2003-01-08 20:25) [0]

Есть-ли тут ошибка?
...
const
cmd:array [1..7] of string=("2","2","c:\Asm\Project\Delphi\CreateOverviewFrame\bmp\","aq.jpg","ar.jpg","as.jpg","at.jpg");
...
try
for i:=1 to strtoint(cmd[1]) do begin
for i1:=1 to strtoint(cmd[2]) do begin
cur:=(i-1)*strtoint(cmd[1])+i1-1;
curfile:=cmd[4+cur];
Inc(No);
new1:=TPanel.Create(ScrollBox);
new1.Name:=New1.ClassName + IntToStr(No);
new:=TImage.Create(New1);
new.Name:=New.ClassName + IntToStr(No);
TImage(New).OnMouseDown:=imageMouseDown;
TImage(new).stretch:=True;
TImage(new).proportional:=True;
TImage(new).Align:=alClient;
TImage(new).OnProgress := ProgressUpdate;
if (AnsiLowerCase(extractfileext(curfile))=".jpg") or (AnsiLowerCase(extractfileext(curfile))=".jpeg") then begin
jpg:=TJPEGImage.Create;
try
jpg.LoadFromFile(cmd[3]+curfile);
TImage(new).Picture.Assign(jpg);
finally
jpg.Free;
end;
end
else TImage(new).Picture.LoadFromFile(cmd[3]+curfile);
with TPanel(new1) do begin
Height:=TImage(New).Picture.Height;
Width:=TImage(new).Picture.Height;
Caption:="";
Color:=ScrollBox.Color;
BevelInner:=bvNone;
BevelOuter:=bvNone;
width:=Ceil(TImage(new).Picture.Width / 100 *10);
Height:=Ceil(TImage(new).Picture.Height / 100 * 10);
end;
New1.Parent:=ScrollBox;
new.Parent:=TPanel(new1);
end;
end;
finally
CFile:=cmd[4];
CFileN:=1;
end;
...

← →
Song © (2003-01-08 20:29) [1]

:-)

← →
Kruger (2003-01-08 21:51) [2]

А ты не пробовал сам посмотреть, есть ли тут ошибка через компилятор? :)

← →
Big_Rom © (2003-01-08 22:21) [3]

На до тоже будет прислать чегонибудь проверить
и еще ктонибудь проверте мои ощибки в месагах :))

← →
MXA (2003-01-09 02:17) [4]

по-моему компилятор не схавает
троеточие после end"a :)

← →
Maksss (2003-01-09 02:22) [5]

и как ты собираешся перемножить курр на стринг(не являющимся не чем кроме стринга)???

← →
Maksss (2003-01-09 02:30) [6]

1 гон твой код не еполный ив соответствии с твоим кодом полный бред
ошибка в первых 6 строчках у мя никак невяжутся с остальными(тобиш игнорируют твою сонст)могет я не прав!?

← →
Andy BitOff © (2003-01-10 23:52) [7]

To Maksss:
А ты хочешь весь код посмотреть? Могу прислать.

← →
Andy BitOff © (2003-01-10 23:56) [8]

А проблема собственно не в этом куске (как оказалось), а в следующем; при возникновении ошибки и после закрытия программы есть подозрение, что в памяти остаются эти изображения (cmd[4..n]). Хотя перед выходом конечно все создпнные Image делаем как free.

ощибка то какая ?

На момент открытия файлов, но не в этом куске, который представлен, а в процедуре ProgressUpdate иногда выскакивает сообщение "Параметр задан неверно". Начиная с этого момента загрузка картинок останавливается, но программа отрабатывает до конца нормально.

Всплываем

Мастера, СРОЧНО!!! Найти похожие ветки