Programi kapatirken hata for class

[akyazinet]

Merhaba,

Asagidaki kod normal olarak calisiyor ancak program kapatilirken

[Warning] Unit1.pas(36): Variable 'yeni' might not have been initialized

seklinde uyari veriyor. Ayni kodu button1 yerine form1.create olayina yazinca her sey normal.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

Deneme = class
private
public
test:ansistring;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var yeni:deneme;
begin
yeni.test:='abcdef';
form1.Caption:=yeni.test;
end;

end.

[gkimirti]

delphide bir nesne degisken tanımladıgımız zaman o nesneye erisiyoruz anlamı cıkmamalı, bir nesne;
herhangi sınıf tipinde tanımlanan degiskenin o tipten bir kopyasının create edilmesi ile erisilebilir hale gelir...
biraz karısık gibi ama aslında cok basit...
bu konuda 2004 yılında 3. ve 4. seminerleri izlemenizi tavsiye ederim...

[akyazinet]

Tesekkurler. Seminerlerden faydalanacagim.

[fduman]

O hata değil uyarı. Yeni class'ını create etmemişsin. Onu söylüyor.