Hi, I have a new problem in my project.
For connect to database and to creat her i used DISQLite3 Personal_1.3.4.I've learnd how to show sa table but just in a richedit and i don't know how to put the information in a table. help pls. Here is how i put the information in a richtext:
procedure Deschide_DB;
begin
sqlite3_check(sqlite3_open(PAnsiChar('dan.db'), @DB), DB);
end;
procedure Inchide_DB;
begin
sqlite3_check(sqlite3_close(DB), DB);
end;
function WriteRowCallback(UserData: Pointer; ColumnCount: Integer; ColumnValues, ColumnNames: PPAnsiCharArray): Integer;
var
i: Integer;
begin
with Form1 do
begin
Log.Lines.Add(ColumnValues[0]+' '+ColumnValues[1]);
Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Deschide_DB;
sqlite3_check(sqlite3_exec(DB,
'select * from studenti;',
WriteRowCallback, nil, nil),
DB);
Inchide_DB;
end;
end;