Повторяющаяся процедура

[MORPEH]

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

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

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

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

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

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

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

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

Язые Delphi 7

[Базиля]

У мемо есть свойство count содержащее в себе количество строк.
Зная количество строк, можно циклом пробежаться по memo.
В вашем случае это будет что-то вроде

for i:=0 to memo1.lines.count-1 do
name(memo1.lines.strings[i]);

[MORPEH]

Сообщение от Базиля

У мемо есть свойство count содержащее в себе количество строк.
Зная количество строк, можно циклом пробежаться по memo.
В вашем случае это будет что-то вроде

for i:=0 to memo1.lines.count-1 do
name(memo1.lines.strings[i]);

Спасибо.
Не знаю как сделать Вам плюс к репутации

[Базиля]

Сообщение от MORPEH

Спасибо.
Не знаю как сделать Вам плюс к репутации

Да не за что
Да бог с ним с этим плюсом, не так важно
P.S. На будущее, за репутацию отвечает иконка весы.

[MORPEH]

Сообщение от Базиля

Да не за что
Да бог с ним с этим плюсом, не так важно
P.S. На будущее, за репутацию отвечает иконка весы.

А еще можно вопрос?

Как можно сделать напрямую из файла? То есть не используя мемо?

[Hacker19_90]

А еще можно вопрос?

Как можно сделать напрямую из файла? То есть не используя мемо?

Тогда с файла на прямую и читать!
В делфи есть несколько методов! Вот вам один

Var
    f: TextFile;
    str: string;

............................................

AssignFile (f, 'имя_файла');
Reset (f);
While not(Eof(f)) do
begin
    Readln (f,str);
    name(str)
end;
CloseFile(f);

[MORPEH]

Сообщение от Hacker19_90

Тогда с файла на прямую и читать!
В делфи есть несколько методов! Вот вам один

Var
    f: TextFile;
    str: string;

............................................

AssignFile (f, 'имя_файла');
Reset (f);
While not(Eof(f)) do
begin
    Readln (f,str);
    name(str)
end;
CloseFile(f);

Спасибо большое