±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1544  |  »Ø¸´: 5

zyj8119

ľ³æ (ÖøÃûдÊÖ)


[½»Á÷] ¡¾ÇóÖú¡¿delphiÔËÐÐÒ»¸öÊé±¾³ÌÐò£¬ÔËÐв»ÆðÀ´

ÎÒ½¨Á¢ÁËÁ½¸öFORM£¬°ÑËûÃÇ·ÅÔÚÒ»¸ö¹¤³ÌÄÚ²¿£¬µ«ÊÇÔËÐгöÏÖ´íÎ󣬯äÖÐunit1.pasµÄÔ´´úÂëÊÇ£º
CODE:
unit Unit1;

interface

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

type
  TformInfoInput = class(TForm)
    ¿ÆÔ±: TComboBox;
    ÄÐ: TComboBox;
    ÐÐÕþ²¿: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formInfoInput: TformInfoInput;

implementation

uses Unit2;

{$R *.dfm}

procedure TFormInfoInput.btnShowClick(Sender: TObject);
begin
   formInfoShow.ShowModal;
end;
procedure TFormInfoInput.btnClearClick(Sender: TObject);
begin
  EdtName.Text='';
  EdtAge.Text='';
  EdtPhone.Text='';
end;
procedure TFormInfoInput.btnExitClick(Sender: TObject);
begin
  formInfoInput.Close;
end;
end.

unit2µÄÔ´´úÂëÊÇ£º
CODE:
unit Unit2;

interface

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

type
  TformInfoShow = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formInfoShow: TformInfoShow;

implementation

uses Unit1;

{$R *.dfm}

procedure TformInfoShow.FormShow(Sender: TObject);
var
tmpstring:string;
begin
  MemShowInfo.lines.Clear;
  tmpstring:='ÐÕÃû:';
  tmpstring:=tmpstring+formInfoInput.EdtName.Text;
  tmpstring:=tmpstring+#13+#10;
  tmpstring:=tmpstring+'ÄêÁä:'+formInfoInput.EdtAge.Text+#13+#10;
  tmpstring:=tmpstring+'ÐÔ±ð:'+formInfoInput.cmbxSex.Text+#13+#10;
  tmpstring:=tmpstring+'Ö°Îñ:'+formInfoInput.cmbxDuty.Text+#13+#10;
  tmpstring:=tmpstring+'µç»°:'+formInfoInput.EdtPhone.Text+#13+#10;
  tmpstring:=tmpstring+'²¿ÃÅ:'+formInfoInput.cmbxWkSpace.Text+#13+#10;
  MemShowInfo.Lines.Add(tmpstring);
end;
procedure TformInfoShow.btnQuitClick(Sender:TObject);
begin
  formInfoShow.Close;
end;
end.

µ«ÊDZàÒ빤³Ì»á³öÏÖ´íÎó£º
Build started 2010-11-22 23:46:19.
__________________________________________________
Project "C:\Documents and Settings\Administrator\My Documents\RAD Studio\Projects\Project1.dproj" (Make target(s)):
Target CoreCompile:
    c:\program files\embarcadero\rad studio\7.0\bin\dcc32.exe --no-config -M -Q -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG -I"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -LE"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Bpl" -LN"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp" -NB"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp" -O"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -R"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -U"c:\program files\embarcadero\rad studio\7.0\lib";"C:\Documents and Settings\Administrator\My Documents\RAD Studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Imports";"c:\program files\embarcadero\rad studio\7.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp";"c:\program files\embarcadero\rad studio\7.0\include";"c:\program files\embarcadero\rad studio\7.0\RaveReports\Lib" -K00400000 -NO"C:\Documents and Settings\All Users\Documents\RAD Studio\7.0\Dcp"   Project1.dpr   
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(31,3): error E2003: E2003 Undeclared identifier: 'MemShowInfo'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(31,15): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(33,24): error E2003: E2003 Undeclared identifier: 'formInfoInput'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(33,38): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(33,38): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(35,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(35,48): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(35,67): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(36,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(36,48): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(36,68): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(37,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(37,48): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(37,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(38,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(38,48): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(38,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,48): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,60): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,72): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(40,15): error E2066: E2066 Missing operator or semicolon
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(42,25): error E2003: E2003 Undeclared identifier: 'btnQuitClick'
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(42,37): error E2029: E2029 ';' expected but '(' found
    C:\Documents and Settings\Administrator\×ÀÃæ\Unit1.pas(39): error F2063: F2063 Could not compile used unit '..\..\..\×ÀÃæ\Unit2.pas'
Done building target "CoreCompile" in project "Project1.dproj" -- FAILED.
Done building project "Project1.dproj" -- FAILED.
Build FAILED.
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(33,38): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(35,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(36,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(37,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(38,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,48): warning W1058: W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(31,3): error E2003: E2003 Undeclared identifier: 'MemShowInfo'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(31,15): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(33,24): error E2003: E2003 Undeclared identifier: 'formInfoInput'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(33,38): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(35,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(35,67): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(36,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(36,68): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(37,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(37,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(38,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(38,69): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,48): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,60): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(39,72): error E2014: E2014 Statement expected, but expression of type 'TCaption' found
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(40,15): error E2066: E2066 Missing operator or semicolon
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(42,25): error E2003: E2003 Undeclared identifier: 'btnQuitClick'
C:\Documents and Settings\Administrator\×ÀÃæ\Unit2.pas(42,37): error E2029: E2029 ';' expected but '(' found
C:\Documents and Settings\Administrator\×ÀÃæ\Unit1.pas(39): error F2063: F2063 Could not compile used unit '..\..\..\×ÀÃæ\Unit2.pas'
    6 Warning(s)
    19 Error(s)
Time Elapsed 00:00:00.37
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by zyj8119 at 2010-11-22 23:50:54:
ÎÒ½¨Á¢ÁËÁ½¸öFORM£¬°ÑËûÃÇ·ÅÔÚÒ»¸ö¹¤³ÌÄÚ²¿£¬µ«ÊÇÔËÐгöÏÖ´íÎ󣬯äÖÐunit1.pasµÄÔ´´úÂëÊÇ£º

[code]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls ...

Á½¸ö½çÃæ·Ö±ðΪ£º

2Â¥2010-11-22 23:57:28
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by zyj8119 at 2010-11-22 23:57:28:

Á½¸ö½çÃæ·Ö±ðΪ£º


Õâ¸öÀý×ÓÎÒÊÇÍêÈ«ÕÕÊé×öµÄ£¬²»ÖªµÀΪʲô»áÓÐÕâô¶à´íÎó£¿
3Â¥2010-11-22 23:58:08
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

weilh

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)


¡ï
zyj8119(½ð±Ò+1): лл²ÎÓë
°æ±¾²»¶Ô°É?

ÖÐÎĵıäÁ¿ÃûÒªÔÚаæÖвÅÖ§³Ö
4Â¥2012-04-09 09:11:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

sowaynet

Í­³æ (³õÈëÎÄ̳)


¡ï
zyj8119(½ð±Ò+1): лл²ÎÓë
procedure TFormInfoInput.btnClearClick(Sender: TObject);
¿´¿´ÄãÕâ¸ö¹ý³ÌÉÙÁËedit1.text:='';ÉÙÁË£º
5Â¥2012-06-30 01:15:05
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÃÔʧµÄÐÄ

Í­³æ (³õÈëÎÄ̳)


¡ï
zyj8119(½ð±Ò+1): лл²ÎÓë
³öÏÖÁ˺ܶàΪÉùÃ÷µÄ±äÁ¿£¬È磺 E2003 Undeclared identifier: 'MemShowInfo'£¬Undeclared identifier: 'formInfoInput'µÈ£»tmpstring:=tmpstring+'ÄêÁä:'+formInfoInput.EdtAge.Text+#13+#10;Õâ¾äµÄEdtAge.TextºÃÏñ²»ÄÜÖ±½Ó·ÃÎʰÉ
6Â¥2013-06-30 10:08:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ zyj8119 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] µ÷¼Á Ò»Ö¾Ô¸¼ªÁÖ´óѧ357·Ö +5 .Starry. 2026-04-04 5/250 2026-04-06 09:28 by cql1109
[¿¼ÑÐ] Ò»Ö¾Ô¸Ö£ÖÝ´óѧ085600Çóµ÷¼Á +17 ³ÔµÄ²»ÉÙ 2026-04-05 20/1000 2026-04-06 00:32 by T¿É¿ÉÎ÷ÀïT
[¿¼ÑÐ] 295Çóµ÷¼Á +8 FZAC123 2026-04-03 8/400 2026-04-05 17:46 by À¶ÔÆË¼Óê
[¿¼ÑÐ] Ò»Ö¾Ô¸ÉϺ£º£Ñó´óѧ083200ʳƷѧ˶£¬Çóµ÷¼Á£¬½ÓÊÜÆäËûרҵ083200 +4 whatÕÅ 2026-04-04 5/250 2026-04-05 14:07 by chw1980_0
[¿¼ÑÐ] µ÷¼ÁÇóÖú +10 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-02 13/650 2026-04-05 09:41 by sam3303
[¿¼ÑÐ] ²ÄÁÏר˶306Ó¢Ò»Êý¶þ +8 z1z2z3879 2026-03-31 8/400 2026-04-04 22:08 by hemengdong
[¿¼ÑÐ] 085400µç×ÓÐÅÏ¢319Çóµ÷¼Á£¨½ÓÊÜ¿çרҵµ÷¼Á£© +5 ÐÇÐDz»Õ£ÑÛà¶ 2026-04-03 6/300 2026-04-04 21:50 by hemengdong
[¿¼ÑÐ] Ò»Ö¾Ô¸»ª±±µçÁ¦´óѧ£¨±±¾©£©£¬²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶265£¬Çóµ÷¼Á +11 yelck 2026-04-03 12/600 2026-04-04 19:52 by dongzh2009
[¿¼ÑÐ] ²ÄÁÏ295 +13 СӢ11 2026-04-03 14/700 2026-04-04 09:02 by À´¿´Á÷ÐÇÓê10
[¿¼ÑÐ] һ־Ը˫·Ç085502£¬267·Ö£¬¹ýËļ¶Çóµ÷¼Á +3 ÔÙæҲҪ³Ô·¹°¡ 2026-04-03 3/150 2026-04-04 05:03 by gswylq
[¿¼ÑÐ] 320µ÷¼Á +4 ũҵ¹¤³ÌÓëÐÅÏ¢¼ 2026-04-03 4/200 2026-04-03 21:40 by lbsjt
[¿¼ÑÐ] Çóµ÷¼Á»ú»á +5 ÒâȾivy 2026-04-03 5/250 2026-04-03 15:13 by qoooooo614
[¿¼ÑÐ] 0705Àíѧ294Çóµ÷¼Á +3 ³É¹û³É¹ûcg5 2026-04-03 3/150 2026-04-03 14:04 by simons1972
[¿¼ÑÐ] ¿¼Ñе÷¼Á +3 Àîľ×Ó0120 2026-04-02 5/250 2026-04-02 21:45 by dongzh2009
[¿¼ÑÐ] 285Çóµ÷¼Á +8 AZMK 2026-04-02 11/550 2026-04-02 20:16 by yulian1987
[¿¼ÑÐ] 314Çóµ÷¼Á +11 1xiaojun23 2026-03-31 12/600 2026-04-02 12:31 by 1xiaojun23
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©¿Æ¼¼´óѧ085601²ÄÁϹ¤³ÌÓ¢Ò»Êý¶þ³õÊÔ×Ü·Ö335Çóµ÷¼Á +5 Ë«ÂíβƦÀϰå2 2026-03-31 5/250 2026-04-01 09:04 by oooqiao
[¿¼ÑÐ] 085404 22408 315·Ö +5 zhuangyan123 2026-03-31 6/300 2026-03-31 13:48 by limeifeng
[¿¼ÑÐ] 370Çóµ÷¼Á +3 080700µ÷¼Á 2026-03-30 3/150 2026-03-31 01:09 by A_Zhe
[¿¼ÑÐ] 297 µØÀíѧ070500 ¸´ÊÔÇóµ÷¼Á +3 СԲȦȦooo 2026-03-30 3/150 2026-03-30 21:05 by ÓàÕðyz
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û