13.12.2017, 16:02
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i,b: integer;
Pos: array [1..2000, 1..2] of string;
begin
b:= 1;
for i := 1 to Length(Memo1.Text) do
begin
Pos[i,1]:= Memo1.Text[i];
Pos[i,2]:= IntToStr(b);
inc(b);
if b > 6 then b:= 1;
end;
end;
|