[lmikle]

Сообщение от Жарас

кто знает как сделать на форме вот такую задачу даны две строки А и Б если они равны то используя цикл while вывети в компоненте memo объединенные строки а и б кол-во повторов равна длине объединеных строк

Ну, как-то так:

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  I : Integer;
  A, B, C : String;
begin
  A := Edit1.Text;
  B := Edit2.Text;
  If A <> B 
    Then Memo1.Lines.Text := 'Строки не равны'
    Else
      Begin
        C := '';
        I := 0;
        While I < Length(A) Do
          Begin
            C := C + A + B;
            Inc(I);
          End;
        Memo1.Lines.Text := C;
      End;
end;