小甲鱼 发表于 2011-11-14 01:32:53

《零基础入门学习Delphi》022 - 课件+典型例题源代码

《零基础入门学习Delphi》022 - 课件+典型例题源代码


本讲教学视频下载地址：浅谈Delphi过程与函数03 -《零基础入门学习Delphi》022


附件包含：课件+典型例题源代码





注：VIP会员享有免费下载本站所有资源的特权！

友情提示：通过购买鱼C光盘（具体内容）赞助鱼C工作室均可加入VIP会员^_^




http://bbs.fishc.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 小甲鱼的微博

湖北佛 发表于 2011-12-22 09:35:54

谁有啊，发我邮箱，

翠竹 发表于 2012-4-15 19:50:01

搞定作业！{:5_109:}

格式天下 发表于 2012-7-21 15:01:44

作业搞定！！！

hostmi 发表于 2012-8-7 21:06:25

这个是LZ做的视频吗

s0512 发表于 2012-9-23 20:30:46

作业俺也完成了{:5_108:}

忧？悠？优？ 发表于 2012-10-9 18:54:06

:'(:'(:'(搞不定啊

学习中-2 发表于 2013-6-30 02:27:40

我喜欢下载了

tjusyj 发表于 2013-9-10 16:44:25

强烈支持楼主ing……

shushu 发表于 2013-9-25 18:10:13

真TM贵，在哪里可以挣鱼币

号号不爽 发表于 2013-11-7 12:19:51

我只是路过打酱油的。

imtrying 发表于 2015-4-19 21:29:24

强烈支持楼主ing……

meihuhu 发表于 2015-11-27 23:29:59

:smile谢谢分享

a513470086 发表于 2016-5-11 11:09:49

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Swap_fun ( var str_a, str_b: String );
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
str1: String;
str2: String;
temp: String;
begin
str1:=Edit1.Text;
str2:=Edit2.Text;

Swap_fun(str1, str2);

Edit1.Text:=str1;
Edit2.Text:=str2;

end;

procedure TForm1.Swap_fun ( var str_a, str_b: String );
var
temp: String;
begin
temp:= str_a;
str_a:= str_b;
str_b:= temp;
end;

end.


新人上路，不知道往哪贴！

13328593595 发表于 2023-8-16 14:07:07

a513470086 发表于 2016-5-11 11:09
unit Unit1;

interface


感谢感谢
页: [1]
查看完整版本: 《零基础入门学习Delphi》022 - 课件+典型例题源代码