Выдает ошибку [Warning] Unit1.pas(225): FOR-Loop variable

[Neroaz]

[Warning] Unit1.pas(225): FOR-Loop variable 'i' may be undefined after loop

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
SetLength(mas,length(mas)+1);
mas[length(mas)-1].Rate:=ComboBox1.Items[ComboBox1.ItemIndex];
mas[length(mas)-1].DateOn:=formatdatetime('dd-mm-yyyy', datetimepicker1.Date);

begin
StringGrid1.RowCount:=length(mas)+1 ;
for i:=0 to length(mas)-1 do
stringgrid1.cells[8,i+1]:=mas[i].Rate;
225: stringgrid1.cells[6,i+1]:=mas[i].DateOn;
end;

В чем ошибка? Помогите, пожалуйста.

[eoln]

Это не ошибка, а предупреждение о возможной ошибке.
Например, после цикла for i := 0 to 5, переменная i может быть равна либо 5, либо 6 в зависимости от типа или опции компилятора или же это наступит в результате оптимизации кода. Вот компилятор и предупреждает, что выражение stringgrid1.cells[6,i+1] может быть неоднозначным.

[Serge_Bliznykov]

кстати, я думаю, что здесь умный компилятор помог автору найти ошибку!
имхо, пропущены операторные скобки begin .. end
т.е. 225 строчка должна быть В ЦИКЛЕ!!!

for i:=0 to length(mas)-1 do
  begin
    stringgrid1.cells[8,i+1]:=mas[i].Rate;
    stringgrid1.cells[6,i+1]:=mas[i].DateOn;
  end;

[Neroaz]

Сообщение от Serge_Bliznykov

кстати, я думаю, что здесь умный компилятор помог автору найти ошибку!
имхо, пропущены операторные скобки begin .. end
т.е. 225 строчка должна быть В ЦИКЛЕ!!!

for i:=0 to length(mas)-1 do
  begin
    stringgrid1.cells[8,i+1]:=mas[i].Rate;
    stringgrid1.cells[6,i+1]:=mas[i].DateOn;
  end;

Спасибо. Одновременно помогло и не помогло:
Сл. ошибка:
[Error] Unit1.pas(251): Undeclared identifier: 'Items'

procedure TForm1.N5Click(Sender: TObject);
begin
try
if openDialog1.Execute then
251: StringGrid1.Items.LoadFromFile(Open Dialog1.Filename);
except
on EstreamError do
Showmessage ('Error');
end;
end;

Главно если вместо StringGrid поставить Listbox1.Items...
то все идет, чо делать?

[bitSoft]

Сообщение от Neroaz

Спасибо. Одновременно помогло и не помогло:
Сл. ошибка:
[Error] Unit1.pas(251): Undeclared identifier: 'Items'

procedure TForm1.N5Click(Sender: TObject);
begin
try
if openDialog1.Execute then
251: StringGrid1.Items.LoadFromFile(Open Dialog1.Filename);
except
on EstreamError do
Showmessage ('Error');
end;
end;

Главно если вместо StringGrid поставить Listbox1.Items...
то все идет, чо делать?

StringGrid1.LoadFromFile(OpenDialog1.Filename);

[Google2010]

StringGrid1.LoadFromFile

это ж у какого StringGridа есть такое свойство?

[Neroaz]

Спасибо, но он опять ругается((
[Error] Unit1.pas(250): Undeclared identifier: 'LoadFromFile'

250:StringGrid1.LoadFromFile(OpenDi alog1.Filename);
Выше есть весь обработчик.
Прочитал в инете: надо добавить что-то в
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, StdCtrls, Grids;
Если конечно я в правильном направлении иду.

[Serge_Bliznykov]

нет у StringGrid метода загрузки из файла (LoadFromFile)
реализовывайте загрузку из файла самостоятельно!
это несложно!

Главное, не забудьте решить, ЧТО и КАК храниться в этом самом Вашем текстовом файле.. (самое важное, сколько столбцов и чем эти столбцы в тексте разделяются...

[Neroaz]

Спасибо!..