Hi!
Ich habe ein (kleines) Problem mit TListItem. Erst mal der Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.btnConnectClick(Sender: TObject);
var _myCon: PMySQL;
    host, user, password, db, query: PChar;
    item: TListItem;
begin
{Verbindungsdaten}
host := 'localhost';
user := 'root';
password := 'blabla';
db := 'test';

{Initialisieren}
item.Create(ListView1.Items);
_myCon := mysql_init(nil);
if _myCon = nil then
begin
item.ImageIndex := 2;
item.SubItems.Add(TimeToStr(time));
item.SubItems.Add('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
Exit;
end;
{Verbindung wird hergestellt}
if mysql_real_connect(_myCon, host, user, password, db, 3306, nil, 0) = nil then
begin
item.ImageIndex := 2;
item.SubItems.Add(TimeToStr(time));
item.SubItems.Add('Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon));
Exit;
end;
item.ImageIndex := 0;
item.SubItems.Add(TimeToStr(time));
item.SubItems.Add('Verbindung hergestellt');

{Transaktionen}
query := 'CREATE TABLE users_new (id int, name varchar(50), pass varchar(50),)';
mysql_real_query(_myCon, query, Length(query));
{Verbindung schließen}
mysql_close(_myCon);
item.Free;
end;

Die Fehlermeldung sieht so aus:

Zitat:

[Warnung] Unit1.pas(43): Variable 'item' ist möglicherweise nicht initialisiert worden

Ich hab schon einiges probiert, komme aber nicht auf den Fehler. Kann jemand helfen?

Müsste es nicht heissen:

Item := TListItem.Create(ListView1.Items); ?

mfG
mirage228

Jetzt kommt zwar keine Fehlermeldung mehr, aber es wird auch kein Eintrag hinzugefügt

Achso, sorry,

du musst statt Item := TListItem.Create(ListView1.Items); schreiben

  Item := listview1.Items.Add; mfG
mirage228

Mit dem obigen Code funktioniert es bei mir nicht.
Wenn ich aber eine neue Anwendung mache und es probiere geht es!

Versuchs mal, indem du das Item.Free löschst!

mfG
mirage228

Danke!!
Es geht