Einzelnen Beitrag anzeigen

Benutzerbild von holliesoft
holliesoft

Registriert seit: 4. Apr 2005
Ort: Gau-Algesheim
250 Beiträge
 
FreePascal / Lazarus
 
#23

Re: TInstalledBrowsers - Komponente um Browser auszulesen

  Alt 10. Sep 2008, 19:56
Hi Andreas,

Zitat von Andreas L.:
EDIT: Falls mir jemand helfen möchte: Ich brauche ein gutes Tutorial wie man auf SQLite Datenbanken zugreift. Chrome und Firefox 3 verwenden diese um Cookies zu speichern...
Ich kann immer wieder nur den Wrapper vonhttp://www.itwriting.com/blog/a-simp...r-for-sqlite-3 empfehlen.

Den benutze ich selbst für diverse Tools, die ich mir für meine Arbeit geschrieben habe (Datenauswertungen).

Zugriff erfolgt über ein TSQLitedatabase-Objekt, dass bei Abfrage mit einer GetTable(SQL: String)-Methode ein TSQLiteTable-Objekt mit den Daten zurückliefert.

Hier ein Beispiel (Schnell aus dem Gedächtnis abgetippt):

Delphi-Quellcode:
procedure ReadData;
var
  db: TSQLiteDatabase;
  table: TSQLiteTable;
  SQL: String;
  ListItem: TListItem;
begin
  db := TSQLiteDatabase.Create(DatenbankPfad);
  SQL := 'Select Vorname, Name, Anschrift, PLZ, Ort from Adressen order by Name';
  table := db.GetTable(sql);
  DatenListView.Items.Clear;
  if table.RowCount > 0 then
  begin
     table.MoveFirst;
     repeat
       ListItem := DatenListView.Items.Add;
       ListItem.Caption := Table.AsString(1);
       ListItem.SubItems.Add(Table.AsString(0));
       ListItem.SubItems.Add(Table.AsString(2));
       ListItem.SubItems.Add(Table.AsString(3));
       ListItem.SubItems.Add(Table.AsString(4));
       table.next;
     until table.eof;
  end;
end;
Gruß,
Patrick

//edit: fehlende ) im Quelltext ergänzt
  Mit Zitat antworten Zitat