Код:
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Word;
Str, Tmp: String;
begin
Memo1.Clear; // очищаем поле для вывода
Str := Edit1.Text; // исходная строка
while Length(Str) > 10 do // пока длина исходной строки больше 10 символов
begin
Tmp := Copy(Str, 1, 10); // копируем во временную строку по 10 символов
Memo1.Lines.Add(Tmp); // выводим их в Memo
Delete(Str, 1, 10); // отрезаем от исходной строки 10 символов
end;
Memo1.Lines.Add(Str); // выводим остаток строки
end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|