Nelamurire vectori

[dannypapuc]

salut.am si eu o rugaminte: cine imi poate explica cum pot lucra cu mai multe obiecte de acelasi tip.
de ex daca am 5 memo,si vreau sa-mi apara un mesaj cand scriu ceva in ele,folosind functia for...do

Memo1
Memo2
Memo3
Memo4
Memo5
 sa initializez o var i care sa-mi tina minte numarul lui memo. adica Memo...

for i:=1 to 5 do
if MemoChange then ShowMessage('text');

sper ca m/ati inteles.
multumesc anticipat.

[tw8]

Ajuta-ma sa inteleg. Tu citesti niste valori, dupa care bati enter. Vrei ca atunci cand una dintre ele a fost citita sa apara  un mesaj... corect?
Astept detalii, dar o sa iti fac in pseudocod, pentru ca nu stiu Pascal/Delphi.

[AdyX]

In primul rand, trebuie sa declari libraria StdCtrls

Cod:

uses StdCtrls;

Apoi declari un vector de Memo-uri

Cod:

var x: array[1..5] of TMemo;

La eventul onCreate al formei trebuie sa creezi Memo-urile

Cod:

procedure TForm1.FormCreate(Sender: TObject);
var i: byte;
begin
  for i:=1 to 5 do begin
    x[i]:=TMemo.Create(Self);
    x[i].Parent:=Form1;
    x[i].Left:=...;
    x[i].Top:=...;
    ...................
  end;
end;

Bafta!

[v0id]

Exista mai multe variante, eu iti dau doua dintre ele. In ambele variante, memo-urile sunt create la design-time. Daca vrei sa le creezi la runtime, folosesti ce ti-a scris AdyX mai sus...

In exemplul meu am folosit 2 memo-uri. Tu poti sa pui cate vrei. Ideea e ca daca vrei sa folosesti varianta fara array-uri, trebuie doar sa asignezi procedura DoOnMemoChange event-urilor de OnChange ale fiecarui memo.
Daca vrei sa folosesti varianta cu array, nu mai trebuie sa faci nimic... Pune cate memo-uri vrei pe form.

Cod:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure DoOnMemoChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MemoArray : array of TMemo;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.DoOnMemoChange(Sender: TObject);
begin
  if (Sender is TMemo) then
    ShowMessage((Sender as TMemo).Name + ' changed');
end;


procedure TForm1.FormCreate(Sender: TObject);
var iCounter   : integer;
    lMemoCount : integer;
begin
  {Fara array}
  Memo1.OnChange := DoOnMemoChange;
  Memo2.OnChange := DoOnMemoChange;
  Memo3.OnChange := DoOnMemoChange;

  {Cu array}
  lMemoCount := 0;
  for iCounter := 0 to Self.ComponentCount - 1 do
    if (Self.Components[iCounter] is TMemo) then
      begin
        (Self.Components[iCounter] as TMemo).OnChange := DoOnMemoChange;
        Inc(lMemoCount);
        SetLength(MemoArray, lMemoCount);
        MemoArray[lMemoCount-1] := TMemo(Self.Components[iCounter]);
      end;
end;

end.

[HostGator]

Ai auzit de aligatorul care ofera hosting?