[bombovix]

Код:

Код:

procedure TApplication01.CheatsClick(Sender: TObject);
var n: string;
begin
n:=Cheats.Items[Cheats.ItemIndex];
Memo1.Lines.LoadFromFile('cheats\'+n+'.txt');
end;

Пишет ошибку: List Index Out Of Bounds (-1)
Обвиняет строку: n:=Cheats.Items[Cheats.ItemIndex];

Подскажите в чем ошибка.

[AXS]

Когда в твоём Cheats не выделен ни один элемент Cheats.ItemIndex равно -1. А Cheats.Items[-1] не существует (список начинается со строки номер ноль ). Вот тебе и ошибка... пиши так:

Код:

procedure TApplication01.CheatsClick(Sender: TObject);
var 
  n: string;
begin
if Cheats.ItemIndex = -1 then
  Exit;
  n:=Cheats.Items[Cheats.ItemIndex];
  Memo1.Lines.LoadFromFile('cheats\'+n+'.txt');
end;

[bombovix]

Это теперь понятно.
Но ведь я знаю, что выбрал что-то в этом списке, почему же тогда значение равно -1?
Просто если использовать Exit, то программа не имеет смысла, при нажатии на любую строку в ЛистБоксе, ничего не происходит, а должен отображаться текст.

Добавлено:
Все, сам решил эту проблему.

[bombovix]

А еще вопрос:
Как можно высчитать количество строк в ЛистБоксе?

Так же хотелось бы узнать команды перевода переменных из одного вида в другой(из целочисленной в строку например). А то я раньше в 7 делфи делал IntToStr, вроде получалось, а сейчас в 2007 не знаю.

[Кодер]

Высчитать колличество строк в ListBox

Код:

ListBox1.Cout{тип integer}

Перевод из целочисленного в строковый
Так и остался IntToStr. Если не получается, то проверь тип объявленной переменной, к которой присваиваешь строковое значение

[bombovix]

Count пробывал,

PHP код:

i:=ListBox1.Count; 


Не работает.


Одна из переменных string, другая integer, IntToStr все равно не работает, пишет неопределенный идентификатор(udeclared identificator)
Код в котором вылазит ошибка:

procedure TApplication01.FormCreate(Sender: TObject);
var
i, i1: integer;
s, s1: string;
begin
Solutions.Visible:=False;
Solutions.Enabled:=false;
Solutions.Items.LoadFromFile('solutions\z-games.sys');
Cheats.Items.LoadFromFile('cheats\z-games.sys');
i:=Solutions.Count;
s:=i(IntToStr);
i1:=Solutions.Count;
s1:=i1(IntToStr);
Memo1.Lines.Add('На данный момент в нашей базе данных кодов и прохождений:');
Memo1.Lines.Add('Прохождений: к '+s+' играм');
Memo1.Lines.Add('Кодов: к '+s1+' играм');
end;

[Кодер]

procedure TApplication01.FormCreate(Sender: TObject);
var
i, i1: integer;
s, s1: string;
begin
Solutions.Visible:=False;
Solutions.Enabled:=false;
Solutions.Items.LoadFromFile('solutions\z-games.sys');
Cheats.Items.LoadFromFile('cheats\z-games.sys');
i:=Solutions.Count;
s:=i(IntToStr);
i1:=Solutions.Count;
s1:=i1(IntToStr);
Memo1.Lines.Add('На данный момент в нашей базе данных кодов и прохождений:');
Memo1.Lines.Add('Прохождений: к '+s+' играм');
Memo1.Lines.Add('Кодов: к '+s1+' играм');
end;

Шутник)) А не пробывал так?

Код:

procedure TApplication01.FormCreate(Sender: TObject);
var
i, i1: integer;
s, s1: string;
begin
Solutions.Visible:=False;
Solutions.Enabled:=false;
Solutions.Items.LoadFromFile('solutions\z-games.sys');
Cheats.Items.LoadFromFile('cheats\z-games.sys');
i:=Solutions.Count;
s:=IntToStr(i);
i1:=Solutions.Count;
s1:=IntToStr(i1);
Memo1.Lines.Add('На данный момент в нашей базе данных кодов и прохождений:');
Memo1.Lines.Add('Прохождений: к '+s+' играм');
Memo1.Lines.Add('Кодов: к '+s1+' играм');
end;

[bombovix]

сори, заработался со flash

[bombovix]

Но ошибка все равно выдается.
Вот скрин:

[The Shadow]

В uses наверно нету модуля, в котором эти функции описаны. Кажется SysUtils называется

[bombovix]

The Shadow, мудрец
Спасибо, и правда не было

[Кодер]

Думали думали, а оказалось так просто))

[lmikle]

[quote=bombovix]Count пробывал,

PHP код:

i:=ListBox1.Count; 


Не работает.

А ListBox1.Items.Count не пробывал? Ты у кого кол-во запрашиваешь? У самого ListBox'а или у коллекции его элементов? Учите матчасть, вьюноша!!!

[bombovix]

lmikle, вобщето и так все уже заработало, ошибка в другом была.