form2'ye TStringList göndermek

furkancanoz

Merhabalar, form1'den form2'ye TStringList gönderiyorum ancak boş geliyor.

form2.list2:=list1; yapıyorum. Nerede yanlış yapıyorum acaba?

Halil Han BADEM

furkancanoz Merhaba,
kodun tamamını atar mısınız?
Büyük ihtimalle sonda finally ile free ediyorsunuz.

furkancanoz

Form1'deki karakterListAd'ı form2 deki karakterAdList e atamaya çalışıyorum.

Form1 kodlarım:

public
    { Public declarations }
     karakterListAd: TStringList;
  end;

var
i: Integer;
begin
karakterListAd:= TStringList.Create;
 try
   for i := 0 to FDTableKarakter.RecordCount-1 do
     begin
      karakterListAd.Add(FDTableKarakter.FieldByName('karakter_ad').Text);
      FDTableKarakter.Next;
 end;
 finally
Form2.karakterAdList:= karakterListAd;
karakterListAd.Free;
 end;
end;

Halil Han BADEM

furkancanoz şöyle dener misin?

public
    { Public declarations }
     karakterListAd: TStringList;
  end;

var
i: Integer;
begin
karakterListAd:= TStringList.Create;
 try
   for i := 0 to FDTableKarakter.RecordCount-1 do
     begin
      karakterListAd.Add(FDTableKarakter.FieldByName('karakter_ad').Text);
      FDTableKarakter.Next;
 end;
 finally
Form2.karakterAdList:= karakterListAd;
 end;
end;

Bu şekilde çalışacaktır ama bellekte create edilen nesne hep kalacaktır. Free kullanmak gerek. Yukarıdakini denemeden önce aşağıdaki gibi dener misin:

public
    { Public declarations }
     karakterListAd: TStringList;
  end;

var
i: Integer;
begin
karakterListAd:= TStringList.Create;
 try
   for i := 0 to FDTableKarakter.RecordCount-1 do
     begin
      karakterListAd.Add(FDTableKarakter.FieldByName('karakter_ad').Text);
      FDTableKarakter.Next;
 end;
 Form2.karakterAdList:= karakterListAd;
 finally
karakterListAd.Free;
 end;
end;

furkancanoz

Halil Han BADEM

access violation at address 004B5D83 in module Uygulama.exe. Read of address 0000000

hatası aldım hocam

Halil Han BADEM

furkancanoz Merhaba,

Form1: 

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
 form1StringList := TStringList.Create;
 try
   form1StringList.Add('aa');
   form1StringList.Add('bb');
   Form2.form2StringList.Text := form1StringList.Text;
   Form2.Show;
 finally
   form1StringList.Free;
 end;
end;

end.

Form2:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 ShowMessage(form2StringList.Text);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 form2StringList := TStringList.Create;
end;

end.

Bu şekilde çalışıyor. Nesne ataması yaptığımız zaman free komutunu iptal ettiğim zaman sağlıklı çalışıyor. Yani:

procedure TForm1.Button1Click(Sender: TObject);
begin
 form1StringList := TStringList.Create;
 try
   form1StringList.Add('aa');
   form1StringList.Add('bb');
   Form2.form2StringList := form1StringList;
   Form2.Show;
 finally
//   form1StringList.Free;
 end;
end;

Ama free etmemiz gerektiği için bu yol önerilmez. Peki neden siliniyor dersen; mantıken iki nesne birbirine bağlanıyor ve içerisindeki yazı form1StringList'ten alınıyor. Bu yüzden form1StringList free ediline form2StringList değeri siliniyor.

Mesajın en yukarısında bulunan kodu kullanman daha iyi olacaktır.
İyi çalışmalar.

furkancanoz

Halil Han BADEM

Böyle çalıştı, free etmeden bir sorun olmazsa sorun yok şuanlık teşekkür ederim, peki hocam bu iki nesneyi birbirine bağlamadan sadece değerleri diğer sayfadaki değişkene atama yapılamıyor mu?

Halil Han BADEM

furkancanoz Evet, yukarıda Form1 ve Form2 olarak iki adet kod yazmışım. Dikkat edersen orada Free ediyorum ve değerler aktarılıyor. Onu kullanabilirsin.

SRHT

Çeşitli yöntemler denenmiş bende bir yöntem söyleyim o zaman.

ls := TStringList.Create;
 try
   ls.Add('SERHAT SARICA');
   ls.Add('SERHAT SARICA');
   Form2.form2StringList.Assign(ls);
   Form2.Show;
 finally
   FreeAndNil(ls);
 end;