Разбить дамп на части. program onetableonefile;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f,r:textfile;
s,filename:string;
i1,i2,j:integer;
begin
assignfile(f,'forum.sql');
reset(f);
filename:='';
while not eof(f) do begin;
readln(f,s);
i1:=pos('DROP TABLE IF EXISTS `ibf',s);
//i2:=pos('CREATE TABLE',s);
if (i1<>0){or(i2<>0)} then begin
filename:=copy(s,22,length(s)-22);
assignfile(r,filename);
rewrite(r);
write(r,s);
write(r,char(13));
write(r,char(10));
end
else if filename <> '' then begin
append(r);
write(r,s);
write(r,char(13));
write(r,char(10));
end;
end;
closefile(f);
closefile(r);
end. поддержку не осуществляю, почему не работает думайте сами)