Run Time 'da oluşturulan Richedit'in içeriğini almak

[cappy2005]

Merhaba,

Run-time 'da oluşturduğum bir form var ve formun üzerinde yine run-time 'da oluşan bir RichEdit ve bir Buton var.Bunlarda bir sorun yok.

Buton için birde OnClick yordamı yazdım buda çalışıyor ama benim yapamadığım butona tıklanınca yani OnClick olayında o form üzerinde bulunan RichEdit 'in içerdiği metni değişkene aktarmak istiyorum, ama yapamadım yardımcı olursanız sevinirim.

[NewMember]

Örnek Kod:

Kod: Tümünü seç

Edit1.Text:=RichEdit1.Text;

Rich editin içeriğini Edit1 in içine yazıyor.Sen bunu değişkenine atarsın.

[cappy2005]

Kod: Tümünü seç

Edit1.Text:=RichEdit1.Text;

bunu yazaman çünkü henüz RichEdit1 diye bir nesne oluşmada o form çalıştığı zaman oluşacak ve adıda RichEdit1 değil RichEdit+IntToStr(i) şeklinde olucak.

Sanırım beni yanlış anladığınız.

[lazio]

tam olarak ne yapmak istediğini anlamadım ama aşağıdaki gibi bir yol izlersen istediğini yapabilirsin..

Kod: Tümünü seç

  for xCount := 0 to ComponentCount - 1 do
    if Components[xCount].ClassName = 'TRichEdit' then
      Degisken := (Components[xCount] as TRichEdit).Text;

[cappy2005]

Kod: Tümünü seç

procedure TForm1.MyClick(Sender: TObject);
var
  i: Integer;
  metin: String;
begin
   for i := 0 to Screen.ActiveForm.ComponentCount-1 do
    begin
     if Screen.ActiveForm.Components[i] is TRichEdit then
      begin
      metin := (Screen.ActiveForm.Components[i] as TRichEdit).Text;
      end;
   end;
   ShowMessage(metin);
end;

teşekkürler bende sorunu sizinkine benzer bir yöntemle çözdüm saolun