Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.21;
Скачать: CL | DM;

Вниз

Проблема   Найти похожие ветки 

 
Bast   (2007-09-23 21:09) [0]

Здравствуйте! Незнаю почему но данный код отказывается работать пишет типа: index bound out... размер файла 23мб.
procedure TForm1.Button1Click(Sender: TObject);
var
gmshop: Tstrings;
a:integer;
z,x,c:integer;
v,b,n:integer;
begin
gmshop:=Tstringlist.Create;
gmshop.LoadFromFile(form1.Edit1.Text);
for a:=0 to gmshop.Count-1 do
begin
z:=pos("armor", gmshop[x]);
x:=pos("slot_bit_type={gloves}", gmshop[x]);
c:=pos("crystal_type=none", gmshop[x]);
If (not z=0) and (not x=0) and (not c=0) then
begin
v:=pos("[", gmshop[x]);
b:=pos("]", gmshop[x]);
form1.Memo1.Lines.Add(copy(gmshop[x], v+1, b-v+1));
end;
end;
gmshop.Free;
end;

end.


 
Anatoly Podgoretsky ©   (2007-09-23 21:14) [1]

> Bast  (23.09.2007 21:09:00)  [0]

А иксу кто будет присваивать значение перед использованием, Пушкин?


 
Yogan   (2007-09-23 21:15) [2]

list out of bounds (999145...)


 
Bast   (2007-09-23 21:17) [3]

Спасибо


 
Dmitro ©   (2007-09-26 01:28) [4]

Советую строчку:
If (not z=0) and (not x=0) and (not c=0) then
заменить на:
if z + x + c > 2 then



Страницы: 1 вся ветка

Текущий архив: 2007.10.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
2-1190796642
F@T@L_Err0r
2007-09-26 12:50
2007.10.21
TColor


1-1185870724
Dmitry_177
2007-07-31 12:32
2007.10.21
PageControl переключение по условию


15-1190296896
Andy BitOff
2007-09-20 18:01
2007.10.21
Вот что можно ответить человеку задавшему такой вопрос.


2-1190787716
F@T@L_Err0r
2007-09-26 10:21
2007.10.21
Desktop lock


2-1190627006
misha_gr
2007-09-24 13:43
2007.10.21
TClientDataSet.Locate