Тема: Повторяющаяся процедура
Показать сообщение отдельно
  #2  
Старый 03.03.2012, 15:20
Аватар для cotseec
cotseec cotseec вне форума
Активный
  
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию
Код:
var
  i:integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
      Name(Memo1.Lines.Strings[i]);
end;
Ответить с цитированием