запись элементов в массив

[kate158]

есть набор стринговских значений. как записать их в массив?
вот код мой:

  
private
dbMas:array of string;

var
i:integer;
f:string;
..    
for i:=1 to DBGrid2.DataSource.DataSet.EOF do 
begin 
DBGrid2.DataSource.DataSet.First;   
 while not dbgrid2.DataSource.DataSet.EOF do
  begin
  f:=dbgrid2.DataSource.Dataset.Fields[0].asstring;
  dbMas[i]:=f;
  dbgrid2.DataSource.DataSet.Next;
  end;
end;

что в нем неверно?

[Serge_Bliznykov]

dbMas[i]:=f;
Вы забываете задавать размерность массива!
Делается это через SetLength()

[TRIZER]

private
dbMas:array of string;

var
i:integer;
f:string;
..    
for i:=1 to DBGrid2.DataSource.DataSet.EOF do 
begin 
DBGrid2.DataSource.DataSet.First;   
 while not dbgrid2.DataSource.DataSet.EOF do
  begin
  f:=dbgrid2.DataSource.Dataset.Fields[0].asstring;
  SetLength(dbMas,Length(dbMas)+1);
  dbMas[i]:=f;
  dbgrid2.DataSource.DataSet.Next;
  end;
end;

Я не знаю типов DBGrid2.DataSource.DataSet.EOF и dbgrid2.DataSource.Dataset.Fields[0].asstring .... может ты там че то еще с ними намутил

[kate158]

ТОТ КОД ПОЛНАЯ ФИГНЯ. мозги кипят уже.

 
var
i:integer;

for i:=1 to (dbgrid1.DataSource.DataSet.Rowcount) do
         begin
           s:=dbgrid1.DataSource.Dataset.FieldByName('Name').asstring;
           dbgrid1.DataSource.DataSet.Next;
           SetLength(dbHours,25);
           dbHours[i]:=s;
        END;

строк 25
но так тоже не работает

[Serge_Bliznykov]

жуть..
1) почему в цикле устанавливаете размер 25 ?!
больше 25 строк не может быть?
Так возьмите обычный массив, не динамический! Или задайте размерность ДО НАЧАЛА ЦИКЛА
2) а чему I равно?! и кто его наращивать будет?!!


___________________________________ ________________________________
так работает?

private
dbMas:array of string;

var
i:integer;
f:string;
..    
это удалить!!! ->> for i:=1 to DBGrid2.DataSource.DataSet.EOF do begin 
DBGrid2.DataSource.DataSet.First;   
i:=0;
 while not dbgrid2.DataSource.DataSet.EOF do
  begin
    inc(i);
    f:=dbgrid2.DataSource.Dataset.Fields[0].asstring;
    SetLength(dbMas,i);
    dbMas[i-1]:=f;
    dbgrid2.DataSource.DataSet.Next;
  end;

[kate158]

еще вопрос.
правильно ли я выцепляю этот массив из БД?

 ADOQuery.SQL.Add('SELECT * FROM VOL');
 ADOQuery.SQL.Add('WHERE  Name in' + dbMas[j-1]);