出现TStrings 和 String 类型不比配，怎么解决？(50分)

D

dmsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #1

出现TStrings 和 String 类型不比配，怎么解决？

 

B

bini

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #2

把代码贴出来.
你一定是把 TString 与 String放在一块儿运算了吧.
TString是一个虚类.不能虚类创建一个对象.可由TStringList重载创建.
与String一块儿的操作,可照如下代码:

procedure TForm1.FormCreate(Sender: TObject);
var Ts: TStrings;
S: String;
begin
Ts := TStringList.Create;
Ts.Clear;
ts.Add('dd');
S:='dd';
if s=ts.Strings[0] then showmessage('dd ok');
end;

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #3

楼主可否说得清楚些？

 

C

coldew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #4

这本来就是两种类型呀

 

F

fj218

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-08

• #5

简单点可以说TStrings是string的一个集合

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-08

• #6

mystrings:TStrings;//mystrings:TStringList;
mystring :string;
//
mystring:=mystrings
mystring:=mystrings.text

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-08

• #7

procedure TForm1.FormCreate(Sender: TObject);
var Ts: TStrings;
S: String;
begin
Ts := TStringList.Create;
Ts.Clear;
ts.Add('dd');
S:='dd';
if ts.IndexOf(s)>0 then showmessage('dd ok');
end;