лабораторная работа / лабораторные работы по ASSAMBLER / отчет по 4 лабе

Вставьте в строку после каждого символа про­бел. Вывести на экран ре­зультат.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

st,str:string; //задание переменных строкового типа

i:Integer; //задание переменно целого типа для счетчика

begin

st:=Edit1.Text;

for i:=1 to Length(st) do //цикл работы

str:=str+st[i]+' ' ; // создание новой строки

Memo1.Clear;

Memo1.Lines.Add(str);

end;

end.