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?