Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

版权申明
查看: 2294|回复: 2

在源代码编辑器的什么部位粘贴进别人的代码?

[复制链接]

该用户从未签到

发表于 2014-11-10 16:05:21 | 显示全部楼层 |阅读模式
下面是程序一开始就有的代码,当我有一个在网上复制的代码时,我应该把它加进哪个位置呢?
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

end.         


下面是别人的代码,应该加进上面代码的哪个地方?
object Form1: TForm1
Left = 392
Top = 267
Width = 512
Height = 326
Caption = #35774#32622#31995#32479#29615#22659#21464#37327
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Icon.Data = {
0000010001002020000000000000A80800001600000028000000200000004000
0000010008000000000080040000000000000000000000010000000000000000
0000000080000080000000808000800000008000800080800000C0C0C000C0DC
C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
990033CC990000CC9900FF999900CC9999009999990066999900339999000099
9900FF669900CC66990099669900666699003366990000669900FF339900CC33
990099339900663399003333990000339900FF009900CC009900990099006600
99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
660099996600669966003399660000996600FF666600CC666600996666006666
66003366660000666600FF336600CC3366009933660066336600333366000033
6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
330033CC330000CC3300FF993300CC9933009999330066993300339933000099
3300FF663300CC66330099663300666633003366330000663300FF333300CC33
330099333300663333003333330000333300FF003300CC003300990033006600
33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
00003399000000990000FF660000CC6600009966000066660000006600003366
0000FF330000CC33000099330000663300003333000000330000CC0000009900
000066000000330000000000DD000000BB000000AA0000008800000077000000
5500000044000000220000DD000000BB000000AA000000880000007700000055
00000044000000220000DDDDDD00555555007777770077777700444444002222
22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000E200
00000000000000000000000000000000000000000000000000000000000000F6
F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F60000000000000000E2
E2F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6000700000000000000
00E2F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F600EB070000000000E2
E2F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F600EBEB07000000E2F6
F6F6F6F6F6F6F6F6F6F6F600F6F6F6F6F6F6F6F6F6F6F6000000000000000000
00F6F6F6F6F6F6F6F6F6001B00F6F6F6F6F6F6F6F6F6F6F6F6F6F60000000000
0000F6F6F6F6F6F6F6001B1B1B00F6F6F6F6F6F6F6F6F6F6F6F6E20000000000
00F6F6F6F6F6F6F6001B1B1B1B1B00F6F6F6F6F6F6F6F6F6F6F6F6E2E20000F6
F6F6F6F6F6F6F6001B1B1B1B1B1B1B00F6F6F6F6F6F6F6F6F6F6F6F6F6000000
00F6F6F6F6F6F6F6001B1B1B1B1B00F6F6F6000000F6F6F6F6F6F60000000000
0000F6F6F6F6F6F6F6001B1B1B00F6F6F6009C9C9C00F6F6F6F6000000000000
00F6F6F6F6F6F6F6F6F6001B00F6F6F6009C9C9C9C9CE2F6F6F6F600000000F6
F6F6F6F6F6F6F6F6F6F6F600F6F6F6F6009C9C9C9C9CE2F6F6F6F6F6F6000000
00F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6009C9C9C9C9C00F6F6F6F60000000000
0000F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6009C9C9C00F6F6F6F6000000000000
00F6F6F6F6F60000000000000000F6F6F6F6000000F6F6F6F6F6F600000000F6
F6F6F6F6F6F60031313131313100F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6000000
00F6F6F6F6F60031313131313100F6F6F6F6F6F6F6F6F6F6F6F6F60000000000
0000F6F6F6F60031313131313100F6F6F6F6F6F6F6F6F6F6F6F6000000000000
00F6F6F6F6F60000000000000000F6F6F6F6F6F6F6F6F6F6F6F6F600000000F6
F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6000000
00F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F60000000000
0000F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6000000000000
00F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F600000000F6
F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6000000
0000000000000000000000000000000000000000000000000000000000E20000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF0000003F0000001F8000000FE0000007800000030000
000180000003E0000007800000010000000080000001E0000007800000010000
000080000001E0000007800000010000000080000001E0000007800000010000
000080000001E0000007800000010000000000000000FFFFFFFFFFFFFFFF}
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object GroupBox1: TGroupBox
Left = 0
Top = 58
Width = 504
Height = 241
Align = alClient
Caption = #29615#22659#21464#37327
TabOrder = 0
object Memo1: TMemo
Left = 2
Top = 14
Width = 500
Height = 225
Align = alClient
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ScrollBars = ssVertical
TabOrder = 0
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 504
Height = 58
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 9
Width = 60
Height = 12
Caption = #21464#37327#21517'    '
Transparent = True
end
object Label2: TLabel
Left = 144
Top = 32
Width = 36
Height = 12
Caption = '=     '
end
object Label3: TLabel
Left = 158
Top = 9
Width = 60
Height = 12
Caption = #21464#37327#20540'    '
Transparent = True
end
object SpeedButton1: TSpeedButton
Left = 304
Top = 18
Width = 65
Height = 22
Caption = #28155#21152
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 384
Top = 18
Width = 65
Height = 22
Caption = #36864#20986
Flat = True
OnClick = SpeedButton2Click
end
object Edit1: TEdit
Left = 16
Top = 28
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
TabOrder = 0
end
object Edit2: TEdit
Left = 158
Top = 28
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
TabOrder = 1
end
end
object XPManifest1: TXPManifest
Left = 112
Top = 112
end
end



回复

使用道具 举报

  • TA的每日心情

    2021-8-18 08:54
  • 签到天数: 1421 天

    [LV.10]以坛为家III

    发表于 2014-11-11 13:47:41 | 显示全部楼层
    这是需要复制到LFM文件中,而不是单元文件中。


    新建一个项目并保存,在保存的项目文件夹内会有单元名.LFM文件。在Lazarus编辑器内打开LFM文件,将上述代码复制到LFM文件内保存就可以了。

    Good Luck~

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

    x
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主| 发表于 2014-11-19 09:44:53 | 显示全部楼层
    还有就是别人的程序在设计的时候是有界面的,但是我复制到他的源代码后,粘贴到IDE里面怎么让他编辑时的那些界面显示出来呢?比如像按钮,form等等。谢谢
    回复 支持 反对

    使用道具 举报

    *滑块验证:

    本版积分规则

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

    GMT+8, 2025-5-2 23:25 , Processed in 0.031963 second(s), 10 queries , Redis On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

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