Problem mit TListItem

[jackie]

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

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?

[mirage228]

Müsste es nicht heissen:

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

mfG
mirage228

[jackie]

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

[mirage228]

Achso, sorry,

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

  Item := listview1.Items.Add; mfG
mirage228

[jackie]

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

[mirage228]

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

mfG
mirage228

[jackie]

Danke!!
Es geht