如何实现以下功能

Question

假设 有 两个Edit控件，我在Edit1中输入数字（比如 5），这时，在Edit2中出现5 个 “A” (或其它的字符/字符串)！先谢谢所有看帖的朋友。 谢谢！

Answer 1

uses
  StrUtils;Edit2.Text := DupeString('A',StrToIntDef(Edit1.Text,0));

Answer 2

函数的原理是怎么样的呢？StrtoIntDef 详细的作用又是什么呢？

Answer 3

procedure TForm1.Edit1Change(Sender: TObject);
var
  n: integer;
begin
  n := StrToIntDef(Edit1.Text,0);
  Edit2.Text := StringOfChar('A',n);
end;

Answer 4

在Edit1的Change事件中改变Edit2的内容uses StrUtils;procedure TForm1.Edit1Change(Sender: TObject);
var
  n: integer;
begin
  n := StrToIntDef(Edit1.Text,0);
  Edit2.Text := DupeString('A', n); //这个函数更通用点
end;

Answer 5

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Edit2.Text := StringOfChar('A',StrToIntDef(Edit1.Text,0));
end;

Answer 6

function DupeString(const AText: string; ACount: Integer): string;
function StringOfChar(Ch: Char; Count: Integer): string;