Показать сообщение отдельно
Старый 14.03.2009, 01:01   #4
Doctor Drive
Нуждающийся
 
Аватар для Doctor Drive
 
Регистрация: 28.01.2009
Сообщений: 65
Написано одно полезное сообщение
(для 2 участников)
Ответ: Криво щитает о_О

Снова трабл, не хотел создавать другую тему, вот и напишу тут...

Кароче в строке 55 пишет error, unexpected token '('


unit Anim;

interface
procedure new;

implementation

uses FileSystem
gifparsejsr75iimloadjsr75;

procedure new;
var 
ssavestring;
addaddnextformfinishini2integer;
okcommand;
frame: array[1..50of image;
delay: array[1..50of integer;

begin
ok 
:= createcommand('Ok'CM_OK1);
repeat
:= FileSystem.foldselect;
showform;
:= 1;

    
frame[i] := imloadjsr75.loadimage(s);
    
form := formaddtextfield('Pause','100'5,TF_NUMERIC);
    
addcommand(ok);
    
repeat until getclickedcommand ok;
    
removecommand(ok);
    
delay[i] := stringtointeger(formgettext(form));
    
clearform;

    
showmenu('Add Next?',CH_IMPLICIT);
    
addnext := menuappendstring('Add Next image');
    
finish := menuappendstring('Finish animation');
    
addcommand(ok);
    
repeat until getclickedcommand ok;
    
removecommand(ok);
until menugetselectedindex finish;

parse.line(s'/');
for 
i2 := 0 to parse.len-do begin
    save 
:= save '/' parse.get(i2);
    
end;
    
showform;
    
gif.init(50);
    
for 
:= 1 to i do begin
    add 
:= gif.add_frame(frame[n]);
    
gif.set_delay(delay[n]);
end;

    
finish := gif.close(save+'/anim.gif');
    if 
finish 1 then showAlert('Done!''Animation created!'loadimage('/sav.png'), ALERT_INFO);
    else 
showAlert('Error!''An error has occured!'loadimage('/err.png'), ALERT_ERROR);
    
delay(3000); //!!! ВОТ СТРОКА 55 !!!
end;

initialization
end

(Offline)
 
Ответить с цитированием