Проблема с DBGrid

[lexaltd]

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

[CODE]Query1 замени на имя своего Query.[/
В том-то и дело ничего не пишет, при компиляции висит и exe не запускает.

Извеняюсь забыл

Query1.Next;

Код весь где так

var
  Form1: TForm1;
  s : string;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  IBQuery1.Close;
  IBQuery1.SQL.Clear;
  IBQuery1.SQL.Text := 'Select * from UNLD';
  IBQuery1.Open;
  s := '';
 while not IBQuery1.Eof do
  begin
   s := s + IBQuery1.FieldByName('FID').AsString + ',';
   IBQuery1.Next;
  end;
 Delete(s, Length(s), 1);
 IBQuery1.First;
end;

[Stilet]

висит и exe не запускает.

Так может ты не переходишь вовсе?
Нужно делать Query.next