delphi代码错误了。

来源：百度知道 编辑：UC知道 时间：2024/05/13 15:08:07
哪位高手帮我看看,下面到底错在哪里.感谢/

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Memo1: TMemo;
Memo2: TMemo;
open: TOpenDialog;
save: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if open.Execute then
edit1.Text := open.FileName;
memo1.Lines.LoadFromFile(open.FileName);
end;

procedure TForm1.

procedure TForm1.Button1Click(Sender: TObject);
begin
if open.Execute then
//Begin
edit1.Text := open.FileName;
memo1.Lines.LoadFromFile(open.FileName);
//End; 添加Begin/End，否则如果点击打开对话框的“取消”按钮，memo1一样会试图打开文件。
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
function RrRrRrRr(const teaabb: string): string; //我不是很明白这一句的意思，如果您想写一个函数，应该把它单独提取出来。
var
i, j: Integer;
begin
Result := '';
j := Length(teaabb) div 2;
for i:=1 to j do
//begin
Result := Result + teaabb[i] + teaabb[i+j];
if Length(teaabb) mod 2 > 0 then
Result := Result + teaabb[j*2+1];
//end; 我不是很明白您这个函数的作用。
end;

function PreProcess(const S: string): string;
var
i: Integer;
begin
Result := '';
i := 1;
while i<