home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / SAMPLE / Sample.txt < prev    next >
Text File  |  1998-06-23  |  311b  |  14 lines
  1. A:='Category';
  2. IF InputQuery('Input requested field:',A.Ref) THEN
  3.   q:=TQuery.Create;
  4.   q.DatabaseName:='DBDEMOS';
  5.   q.SQL:='SELECT * FROM Biolife';
  6.   q.Open;
  7.   q.First;
  8.   WHILE NOT q.EOF DO
  9.     Caption:='Category:'+q.GetValue('Category');
  10.     Show(q.GetValue(A));
  11.     q.Next;
  12.   END;
  13.   q.Free;
  14. END;