[MORPEH]

Здравствуйте. Нужна помощь.

У меня есть некая процедура: procedure Name(s:string);

Вызываю ее так:

Name('Алексей Владимирович');
Name('Александр Александрович');
Name('Михаил Евгеньевич');

Вопрос такой:

Как сделать так, что бы одна была строчка, просто вызывалась столько строк, сколько в мемо она есть.

То есть в мемо у меня допустим:
Алексей Владимирович
Александр Александрович
Михаил Евгеньевич'

Как сделать так, что бы не плодить как выше, что бы автоматически из мемо бралось

Язые Delphi 7

[cotseec]

Код:

var
  i:integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
      Name(Memo1.Lines.Strings[i]);
end;

[Klyaksa]

Вопрос точнее поставь. Что именно тебе нужно сделать с именами? И что именно должно браться автоматически?

[Пионер]

Организуй цикл, в чём проблема?

Код:

for k := 0 to Memo.Lines.Count do Name('Memo.Lines.Strings[k]');

[MORPEH]

Всем спасибо.

Помогли.

Вопрос еще один: А как сделать так же, но только с текстовым файлом. Без загрузки в мемо?

[Пионер]

Если это простой текстовый файл, так же построчно считываешь!

[cotseec]

как пример

Код:

var
   tmpList:TStringList;
   i:integer;
begin
  tmpList:=TStringList.Create;
  try
    tmpList.LoadFromFile('MyFile.txt');
    for i:=0 to tmpList.Count-1 do
                   Name(tmpList.Strings[i]);
  finally
    tmpList.Free;
  end;
end;

также можешь считывать в цикле построчно непосредственно из файла (потоком или "прямым" доступом), можешь в тот же компонент Memo грузить, а чтобы глаза не мозолил - Memo.Visible:=false; (коли с Memo уже работаешь) да много всяких возможностей