Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
ВнизEAcess violation at FFFFFFF7 при вызове процедурки - Найти похожие ветки
← →
greenrul (2002-03-09 20:33) [0]
type
TRec = record
url:string;
name, key: string;
end;
var Data:array[1..100] of TRec;
procedure TMainForm.DoBinded(str:string);
var i,i2,i3,i4,counter:integer;
s,s2:string;
kill: boolean;
begin
if length(str)<=0 then EXIT;
i3:=0;
counter:=1;
l[5]:=l[4];
l[4]:=l[3];
l[3]:=l[2];
l[2]:=l[1];
l[1]:=str;
repeat
s:=Data[counter].key;
s2:=s;
{
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c