Witam otóż chcę zrobić aby mi z jednego memo przeniosło tekst do drugiego uwzględniając znaki, kawałki, wyrazy, które znajdują się w valuelisteditor. Tzn, że chce przenieść kod: mam w memo1 tekst 'test[sa]' a żeby w drugim to wyglądało 'test then begin sa end;'
var
i,y : integer;
begin
memo2.clear;
for i := 1 to length(memo1.Text) do begin
for y := 0 to valuelisteditor1.ColCount do
if copy(memo1.Text,i,1) = valuelisteditor1.Keys[y] then
memo2.Text := memo2.text + valuelisteditor1.Values[copy(memo1.Text,i,1)];
end;
end;
Kod wygląda tak, to teraz działa wyłącznie na te znaki, ale jak zrobić by przenosiło jeszcze tekst? Bo gdy dam else to np 5 razy napisze mi to samo, bo pętla y się powtarza.
Pewno to błahostka, ale nie mogę tego rozczaić.