У меня не работает с Lib_jsr75i .
Что делать?
Program Prog;
Uses jsr75i, imloadjsr75;
Var
img: array[1..2] of image;
f, ss, sss, w: string;
way: array[0..255] of string;
i, l, n, z: integer;
Begin
ss:= '/c:/pictures/1.jpg';
w:= '/c:/pictures/';
f:= get_files('/c:/pictures/');
l:= length(f);
for i:= 1 to l do begin
sss:= copy(f, i, i + 1);
if sss <> '|' then ss:= ss + sss else begin
way[z]:= ss;
z:= z + 1;
if i < n then i:= i + 1;
ss:= '';
end;
if i = l then z:= z - 1;
end;
for i:= 0 to z do begin
ss:= w + way[i];}
img[1]:= imloadjsr75.loadimage(ss);
DrawImage(img[1], 0, 0);
repaint;
delay(5000);
end;
SetColor(0, 0, 0);
FillRect(0, 0, 176, 220);
SetColor(255, 255, 255);
DrawText('END', 80, 104);
delay(10000);
End.