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

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

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

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

x

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

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

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

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

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

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

登录/注册后可看大图

该贴已经同步到小甲鱼的微博

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

谁有啊，发我邮箱，

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

搞定作业！

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

作业搞定！！！

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

这个是LZ做的视频吗

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

作业俺也完成了

忧？悠？优？ · 发表于 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

感谢感谢

账号		自动登录	找回密码
密码			立即注册