H
hi_xyw
Unregistered / Unconfirmed
GUEST, unregistred user!
new(head);
data:=head;
Ishead:=True;
for i:=0 to ListView.items.Count-1 do
if (ListView.items.Selected) then
begin
QuestionType:=ListView.items.Caption;
if(Ishead) then
begin
head.strType:=QuestionType;
data.strType:=QuestionType;
Ishead:=false;
end
else
data^.strType:=QuestionType;
showMessage(data^.strType);
new(data^.next);
data:=data^.next;
end;
data^.next:=nil;
data:=head;
while not(data^.next<>nil) do
begin
ShowMessage(data^.strType);
data:=data^.Next;
end;
为什么第一个showmessage可以输出所选取中项，而第二个输出的为空！
data:=head;
Ishead:=True;
for i:=0 to ListView.items.Count-1 do
if (ListView.items.Selected) then
begin
QuestionType:=ListView.items.Caption;
if(Ishead) then
begin
head.strType:=QuestionType;
data.strType:=QuestionType;
Ishead:=false;
end
else
data^.strType:=QuestionType;
showMessage(data^.strType);
new(data^.next);
data:=data^.next;
end;
data^.next:=nil;
data:=head;
while not(data^.next<>nil) do
begin
ShowMessage(data^.strType);
data:=data^.Next;
end;
为什么第一个showmessage可以输出所选取中项，而第二个输出的为空！