Выполнять пока не...

[HTL]

Нужно сделать примерно так:

(Примерное описание на русском)

Делать пока в мемо есть строчки
---
эдит1.текст = 1 строчка мемо
удалить первую строчку мемо
---

То что между --- надо делать пока в мемо есть строчки...

[Баламут]

repeat
  Memo1.Lines.Delete(0);
until Memo1.Lines.Count = 0;

[puporev]

Делать пока это точнее

while Memo1.Lines.Count > 0 do
  begin

[Баламут]

Автор удаление упомянул, потому я и привел такой пример. Хотя...

[puporev]

Просто дословно "делать ... пока"(выполняется условие), это while ... do

[HTL]

и вот еще вопросик как в Edit1.text , загнать первую строчку мемо?

[IT-man]

EDIT.TEXT:=MEMO.LINES[0]

[artemavd]

и вот еще вопросик как в Edit1.text , загнать первую строчку мемо?

Вот:

Edit1.Text:=Trim(Memo1.Lines.Text)

[Serge_Bliznykov]

artemavd, неверно. в Edit будут помещены ВСЕ строки из MEMO (даже если Вы и увидите только первую строчку, там будут ВСЕ строки.

Правильный код от IT-man
(ну, или, что тоже самое, просто можно записать так:

Memo1.Lines.Strings[0]

[artemavd]

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

artemavd, неверно.

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

Правильный код от IT-man

Прям как в игре .