编写delphi 103 代码在文本框输入文字点击按钮以波浪形状输出文字。

以下是一个简单的Delphi 10.3代码示例，可以实现在文本框中输入文字，然后点击按钮以波浪形状输出文字。

在窗体上放置一个TEdit组件和一个TButton组件，然后在TButton的OnClick事件中添加以下代码：

procedure TForm1.Button1Click(Sender: TObject); var i, j: Integer; text: string; begin // 获取文本框中的文本 text := Edit1.Text; // 输出波浪形状的文本 for i := 1 to Length(text) do begin for j := 1 to i do Write(text[j]); WriteLn; end; for i := Length(text) - 1 downto 1 do begin for j := 1 to i do Write(text[j]); WriteLn; end; end;

在上述代码中，我们首先获取文本框中的文本，然后使用两个循环来输出波浪形状的文本。第一个循环从第一个字符开始，每次输出一个字符，然后在下一行输出两个字符，以此类推，直到输出整个字符串。第二个循环与第一个循环相反，从倒数第二个字符开始，每次输出一个字符，然后在下一行输出两个字符，以此类推，直到输出整个字符串（但不包括最后一个字符）