Cytuj:
|
Oryginalnie napisane przez MatKus
Można to przecież łatwiej rozbić. Skorzystaj z objektowości samego Delphi 
Każdemu editowi nadaj TAG odpowiadający jego pozycji w tekście (edit dla pierwszej litery =1, dla drugiej=2 itd) i teraz tak:
Kod:
for x:=1 to Form1.ControlCount do // jedziemy przez wszystko co jest na forumie (edity, buttony itp. itd.)
begin
if Form1.Controls[x] is TEdit then // czy to, co akurat mamy, to Edit?
begin
with Form1.Controls[x] as TEdit do // mniej pisania :) Po za tym "ogólnie" kontrolkę zaczynamy traktować jako Edit
begin
d:=length(name);
if d>=5 then // żeby przypadkiem za krótka nazwa nie wyszła i sie nie wysypało :P
begin // wpisz odpowiednią literę do tego edita. Jeśli pole nazywa cię
// XXXXbX, na przykład Editb4, to wpisz tam z memo2, itd.
if name[5]='b' then text:=memo2.Text[tag] else
if name[5]='c' then text:=memo3.Text[tag] else
if name[5]='d' then text:=memo4.Text[tag] else
if name[5]='e' then text:=memo5.Text[tag] else
text:=memo1.Text[tag];
end;
end;
end;
end;
Mam nadzieję, że błędu nie zrobiłem, bo pisałem z pamięci.
Wyślę ci to też mailem.
Po za tym jeszcze 2 uwagi : Po pierwsze, czy tyle tych Images i Editów jest potrzebne? Strasznie długo się to przez to kompiluje, a i zasoby systemu nieźle zżera.
A po drugie, czy nie lepiej by było te wszystkie obrazk wrzycić do jednego i skorzystać z copyrect ? |
Szczeże powiedziawszy o tym 1 nie wiedziałem a tego drugiego się za późno domyśliłem.