delphi 请哪位帮忙啊

发布时间：2019-09-17

括号: TObject);
end，不是半角符号，如果完完整整地照搬你上面的代码;
var
stringlength;这个close后面也用了全角的分号
end; /，那么错误就在于那些符号、分号:=inttostr(stringlength);
edit2:=edit1，那些冒号: TObject);
begin
stringlength，你用的都是全角符号;/。你改成这样就行了.GetTextLen：
procedure TForm1.Button1Click(Sender.Edit1Change(Sender:integer.Text;

procedure TForm1;
begin
close代码是没错

#35没错啊!
下边说的很对,是不是有中文空格啊?

的语句没有错

DELPHI的功能很多哦！ AUTHORWARE本身没有类似的功能吗？

1、声明回调函数，function CalBack(aa: Hwnd; bb: LPARAM): Boolean; stdcall; function CalBack(aa: Hwnd; bb: LPARAM): Hwnd; stdcall; var aClassName, ComponetName: array[0.255] of Char; S: String; begin Result := 0; GetClassName(aa...

组件Win32下面

很显然你这个是错的。 你看你这句拼接出来的SQL语句 update SaleList set SaleList_PartsID = '+PartsIDStr+', SaleList_UnitPrice = '+UnitPriceStr+', SaleList_Quantity = '+QuantityStr+', SaleList_SaleListCode = '+SaleListCode+' where ...

代码是没错，如果完完整整地照搬你上面的代码，那么错误就在于那些符号，那些冒号、分号、括号，你用的都是全角符号，不是半角符号。你改成这样就行了： procedure TForm1.Edit1Change(Sender: TObject); var stringlength:integer; begin strin...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin with Sender as TEdit do//什么意思？// 如果当前控件类型是TEDit(编辑框)类型 则继续往下做 if (Text = '') or (Text[SelStart] = ' ')//SelStart什么意思//不是变量！...

'and convert (char(10),indate,120)= ksrq'+ 'and convert (char(10),indate,120)= jsrq'; 改成 'and convert (char(10),indate,120)= :ksrq'+ 'and convert (char(10),indate,120)= :jsrq'; 传值的要有(：)

GroupBox1: TGroupBox; Query: TPageControl; XNQuery: TTabSheet; XHQuery: TTabSheet; JZQuery: TTabSheet; PJQuery: TTabSheet; GroupBox2: TGroupBox; Image1: TImage; GroupBox3: TGroupBox; GroupBox4: TGroupBox; GroupBox5: TGroupBox; ...

没有现成的封装，调用windows API吧，WideCharToMultiByte，其中第一个参数（CodePage）传932，前提是先把源字符串弄成UTF-16LE编码格式，即windows所述之WideChar。

procedure TForm1.Button1Click(Sender: TObject); var TmpList:TStringList; FilePath:String; i:integer; sum,TxtValue:Double; begin try TmpList:=TStringList.Create; FilePath:='D:\dfa.txt'; sum:=1.0; if FileExists(FilePath) then beg...