Komponent TEdit + licznik

0

Witam. Mam do zrobienia projekt zaliczeniowy z delphi - kalkulator macierzowy. Niestety napotkałem na problem, który nie mogę od dłuższego czasu przeskoczyć. Mianowicie, dodawanie macierzy zrobiłem przez wstawianie odpowiedniej ilości pół TEdit. Jest to zaimplementowane w pętli, więc każdy nowo dodany komponent Edit ma nazwe:

Edit.Name := 'Edit'+IntToStr(k); // k to licznik

Analogicznie tworzy się druga macierz, tylko 'Edit' zamieniam na 'Editt'. Problem pojawia się niestety w trakcie dodawania obu macierzy, ponieważ nie wiem jak się do nich odwołać. Chciałbym dodawać powiedzmy Edit9.Text do Editt9.Text, ale nie bardzo wiem jak to zapisać w kodzie. Mam nadzieje, że napisałem to w miarę zrozumiale i ktoś jest w stanie mi pomóc.
Z góry wielkie dzięki.

0

Na przykład tekst masz:

TEdit(FindControl('Edit' + IntToStr(k)).Text
0

tylko teraz mi wyskakuje błąd o złych typach: hwnd i string.

Edit_f.Text:= TEdit(FindControl('Edit'+IntToStr(k)).Text;

TEdit_f to komponent edit macierzy trzeciej, gdzie ma byc dodawane poszczególne komponenty dwóch pierwszych macierzy.

1

Stwórz sobie tablicę

var
  TabEditX, TabEditY: array[1..9] of TEdit;

Następnie twórz komponenty TEdit w pętli

with TabEditX[i].Create(Self) do
  begin
   //...
   TabEditX[i].Name := 'EditX' + IntToStr(i);
  end;

with TabEditY[i].Create(Self) do
  begin
   //...
   TabEditY[i].Name := 'EditY' + IntToStr(i);
  end;

I odwołujesz się tak

Wynik := IntToStr(TabEditX[9].Text) + StrToInt(TabEditY[9].Text);
0

chyba działa, dzięki wielkie ;]

1 użytkowników online, w tym zalogowanych: 0, gości: 1