Вопрос о Memo1 [помогите с кодом]

[kakawkin]

Вот мой код

procedure memolines(s:string);
var i:integer;
begin
  for i:=0 to 3000 do
  if Form1.Memo1.lines[i]='' then begin Form1.Memo1.Lines[i]:=s;exit;end;
end;

я зделал его для своего цикла чтобы он искал в memo свободную строку и туда записывал значение.

А как можно зделать чтобы к примеру при написании memolines(1,fghhf) - он записывал fghhf в memo1, а при написании memolines(2,fghhf) - записывал соответственно значение в memo2 ?

[Utkin]

procedure memolines(s:string; var X: TMemo);
var i:integer;
begin
  for i:=0 to 3000 do
  if X.lines[i]='' then begin x.Lines[i]:=s;exit;end;
end;

Пример:
memolines(fghhf, Form1.Memo2);

Если хочешь именно чтобы по твоему было, то нужно анализировать цифирку и выбирать соответствующий Memo. Это немного муторней и медленней.

[Пепел Феникса]

FindComponent + поиск.
а вообще подход не рационален.
лучше уж ссылку на нужное мемо передавать, чем тратить лишние время на поиски.