var
slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
begin
slDBPath := ExtractFilepath(application.exename)+'GameLoad.DB';
sldb := TSQLiteDatabase.Create(slDBPath);
try
if sldb.TableExists('Monster') then
begin
sSQL := 'select name from Monster';
sltb := slDb.GetTable(sSQL);
end;
while not sltb.EOF do begin
listbox1.Items.Add(sltb.FieldAsString(sltb.FieldIndex['Name']));
sltb.Next;
End;
finally
sldb.Free;
end;
需要SQLiteTable3.pas