求几个函数和过程的写法，最好是简单和复杂参半 希望有注释谢谢
求几个函数和过程的写法，最好是简单和复杂参半 希望有注释谢谢

[解决办法]
写什么呀
[解决办法]
function GetStr:String;
begin
Result := 'abc';
end;

Edit1.Text := GetStr;
[解决办法]
看看书吧，比如delphi5 开发人员指南
[解决办法]
什么要求都没有。。。。
[解决办法]
Edit1.Text := 'AAAA';
这个算不算
[解决办法]
稍复杂一点的
Edit1.Text:=IntToStr(12345);

[解决办法]

Delphi(Pascal) code

定义函数 funtion 函数名({参数}):返回值类型;function FUNC():string;//无参数函数beginend;function FUNC(const A:integer):string;//常数参数函数beginend;function FUNC(A:integer):string;//传值参数函数beginend;function FUNC(var A:integer):string;//传址参数函数beginend;调用 Edit1.Text:=FUNC();//无参数函数返回值Edit1.Text:=FUNC(1);//带参数函数返回值
[解决办法]
好吧，再来个更复杂一点的

SendMessage(Edit1.Handle, WM_SETTEXT, 0, Integer(PChar('12345')));
[解决办法]
Delphi(Pascal) code
procedure swap(x, y: integer);begin    x := x xor y;    y := y xor x;    x := x xor y;end;
[解决办法]
Delphi(Pascal) code
定义函数 funtion 函数名({参数}):返回值类型;function FUNC():string;//无参数函数beginend;function FUNC(const A:integer):string;//常数参数函数beginend;function FUNC(A:integer):string;//传值参数函数beginend;function FUNC(var A:integer):string;//传址参数函数beginend;调用 Edit1.Text:=FUNC();//无参数函数返回值Edit1.Text:=FUNC(1);//带参数函数返回值还有function Func(out A:string):boolean;beginend;调用var str:string;if Func(str) then begin  Edit1.Text:=str; end;