Цитата:
|
Сообщение от maxmaslo
добавил. не работает.
|
Что не работает?
Во-первых добавь перед последним begin строку "for i := 1 to N do" (без кавычек).
Во-вторых приведи содержимое Memo1 при котором этот код не работает.
В-третьих расшифруй что значит "не работает".