Цитата:
|
Сообщение от Budjaka
- этот код вешает приложение, т.е. цикл крутится бесконечно.
|
Упппс.. Это я ложанулся. Я там перехода по записям не делаю вот он и крутится на первой. Должно быть так:
Код:
Q: TAdoQuery;
S: String;
...
Q.SQL.Text := 'SELECT user_pass FROM Tuser WHERE user_name = :user_name' ;
Q.Parameters.ParamValues['user_name'] := 'Admin';
Q.Open;
while not Q.Eof
do begin
S := Q.FieldValues['user_pass'];
Q.Next;
end;
Для запихивания в массив чуток меняем код:
Код:
...
i := 0;
while not Q.Eof
do begin
Inc(i);
MS[i] := Q.FieldValues['user_pass'];
Q.Next;
end;
...
[/code]или так:
Код:
...
for i := 1 to Q.RecordCount
do begin
MS[i-1] := Q.FieldValues['user_pass'];
Q.Next;
end;
...