大家帮我看看,过程报错,搞不清楚啊。。。。[Pascal Error] Unit1.pas(1): Unable to invoke Code Completi

  • 主题发起人 主题发起人 楚辞
  • 开始时间 开始时间

楚辞

Unregistered / Unconfirmed
GUEST, unregistred user!
大家帮我看看,过程报错,搞不清楚啊。。。。[Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in(10)<br />我想实现如下字符串: s1="169.254.92.1" s2="www.csdn.net" s3="9999" 然后把s1,s2,s3,和在一起,中间用|隔开。:“169.254.92.1|www.csdn.net|9999|“ 现刚走第一步:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; procedure Button1Click(Sender: TObject); private procedure MyString(TempStr:String;Number:Integer); { Private declarations } public { Public declarations } end; var Form1: TForm1; s:array of string; implementation uses Unit2; {$R *.dfm} procedure Form1.MyString(TempStr:String;Number:Integer); begin s. end;[Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code
 
结贴。这个贴子发重了。
 
stringlist,很简单就能实现
 
哦.是嘛.那请楼上的给段代码如何?
 
不是说结贴了吗,怎么还要代码?procedure TForm1.Button1Click(Sender: TObject);var List:TStringList;beginList:=TStringList.Create;tryList.Add('169.254.92.1');List.Add('www.csdn.net');List.Add('9999');List.Delimiter:='|';showmessage(List.DelimitedText);finallyList.Free;endend;
 
呵呵。。。。学习用。看看你们是怎么完成的。谢谢了、!
 
试了试果然能成。没有想到stringlist这么历害。。。。这是个什么东西,真猛。。。。。
 
后退
顶部