鱼C论坛

 找回密码
 立即注册
查看: 4779|回复: 14

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

[复制链接]
发表于 2011-11-14 01:32:53 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

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


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


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


022浅谈Delphi过程与函数03 - 零基础入门学习Delphi022(课件+源代码).zip (437.31 KB, 下载次数: 479, 售价: 20 鱼币)



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

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





                               
登录/注册后可看大图
该贴已经同步到 小甲鱼的微博
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2011-12-22 09:35:54 | 显示全部楼层
谁有啊,发我邮箱,
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-4-15 19:50:01 | 显示全部楼层
搞定作业!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-7-21 15:01:44 | 显示全部楼层
作业搞定!!!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-8-7 21:06:25 | 显示全部楼层
这个是LZ做的视频吗
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-9-23 20:30:46 | 显示全部楼层
作业俺也完成了
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-10-9 18:54:06 | 显示全部楼层
:'(:'(:'(搞不定啊
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-6-30 02:27:40 | 显示全部楼层
我喜欢  下载了
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2013-9-10 16:44:25 | 显示全部楼层
强烈支持楼主ing……
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2013-9-25 18:10:13 | 显示全部楼层
真TM贵,在哪里可以挣鱼币
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2013-11-7 12:19:51 | 显示全部楼层
我只是路过打酱油的。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2015-4-19 21:29:24 | 显示全部楼层
强烈支持楼主ing……
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2015-11-27 23:29:59 | 显示全部楼层
:smile谢谢分享
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 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.


新人上路,不知道往哪贴!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-8-16 14:07:07 | 显示全部楼层

感谢感谢
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 08:33

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表