Thema: Delphi Problem mit TListItem

Einzelnen Beitrag anzeigen

jackie
(Gast)

n/a Beiträge
 
#1

Problem mit TListItem

  Alt 1. Jan 2004, 16:19
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?
  Mit Zitat antworten Zitat