Android Thread nesne yaratma örneği

[beklentili]

Merhaba, sizlerden aşağıda bulunan Thread metoduyla oluşturulmuş örneğin kodlarını incelemenizi ve yanlış olan yerleri söylemenizi rica ediyorum.

Kod: Tümünü seç

unit uMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects, FMX.TabControl,
  FMX.Gestures, FMX.StdCtrls, System.Actions, FMX.ActnList, FMX.Layouts,FMX.Graphics,
  Data.Bind.Components, Data.Bind.DBScope, Data.Bind.EngExt, Fmx.Bind.DBEngExt,
  System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors,
  DPF.Android.BaseControl, DPF.Android.JImageView, FMX.WebBrowser, FMX.ExtCtrls;

type
  TTabSlidingForm = class(TForm)
    Ana_Tab: TTabControl;
    Sayfa: TTabItem;
    GridLayout1: TGridLayout;
    ToolBar2: TToolBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
        fThread: TThread;
  public

  end;

var
  TabSlidingForm: TTabSlidingForm;

implementation
uses IOUtils, FMX.Platform;
{$R *.fmx}

 type
     TProgressThread = class(TThread)
  private
  protected
    procedure Execute; override;
  end;
{ TTestThread }



procedure TProgressThread.Execute;
var
i: Integer;
Yeni_nesne:TLayout;
Yeni_nesne_arka_plan:TRectangle;
begin
 inherited;
  try
  i:=0;
TabSlidingForm.Button1.Visible:=False;

 ///İŞLEMLER BAŞLANGIÇ
 while i<10 do
 begin
 Sleep(500);

 Yeni_nesne:= TLayout.Create(TabSlidingForm);
 Yeni_nesne.Margins.Bottom:=5;
 Yeni_nesne.Margins.Left:=5;
 Yeni_nesne.Margins.Right:=5;
 Yeni_nesne.Margins.Top:=5;
 TabSlidingForm.GridLayout1.AddObject(Yeni_nesne);

 Yeni_nesne_arka_plan:= TRectangle.Create(Yeni_nesne);
 Yeni_nesne_arka_plan.Align:=TAlignLayout.Client;
 Yeni_nesne_arka_plan.Sides:= [];
 Yeni_nesne_arka_plan.Fill.Color:=$FFEFF78C;
 Yeni_nesne_arka_plan.Parent:=Yeni_nesne;


   i:=i+1;
 end;

    ///İŞLEMLER BİTİŞ

  except
    on E:Exception do
    begin
      Log.d('Hata: ' + E.message);
    end;
  end;


TabSlidingForm.Button1.Visible:=True;
end;



procedure TTabSlidingForm.Button1Click(Sender: TObject);
begin
  fThread := TProgressThread.Create;
end;


end.

Ayrıca bu örneğe istinaden datadan verileri çekip bu verilere göre nesneleri oluşturacağım. Datadan veri çekmekle ilgili connection yapısını nasıl oluşturmalıyım.

[beklentili]

Sorunu çözdüm çok şükür. Şimdi vakit çok geç oldu ancak yarın nasip olursa çözümü burada paylaşırım.