|
#1
|
|||
|
|||
SQLite в Delphi7
Код:
function TForm1.us(dir: string): string; var SQLiteDatabase : TSQLiteDatabase; SQLiteTable : TSQLiteTable; begin SQLiteDatabase := TSQLiteDatabase.Create(dir); SQLiteTable := SQLiteDatabase.GetTable('SELECT * FROM 9'); While not SQLiteTable.EOF do begin Result := Result +'1 '+ SQLiteTable.FieldAsString(SQLiteTable.FieldIndex['1']) + #13#10; Result := Result +'2 '+ SQLiteTable.FieldAsString(SQLiteTable.FieldIndex['2']) + #13#10; SQLiteTable.Next; end; end; |