Question

delphi编程语言,数组问题,

begin
inherited;
try
oboCOASegments := CreateEverestObject(CLASS_boCOASegment) as IboCOASegment;
avtemp:=oboCOASegments.GetSegmentInfo(GetUID);
if VarToStr(avtemp[0])<>EmptyStr then
m_sSeparater:= VarToStr(avtemp[0])[1]//请问这里[1]是什么意思呢.?
else
m_sSeparater:=#0;
cmbCode.Properties.editMask:=GetCoaSegmentFormat
except
end
end;
还有请问这段函数的作用是什么呢.

Answer 1

1： m_sSeparater:= VarToStr(avtemp[0])[1]//请问这里[1]是什么意思呢.?
比如现在avtemp[0]这个Variant的值是字符串'ABC' 那么 VarToStr(avtemp[0])[1] 就等于'B'。[1]取下标第二个。

2这段代码的意思：
begin
inherited; //继承
try
//创建 IboCOASegment 实例
oboCOASegments := CreateEverestObject(CLASS_boCOASegment) as IboCOASegment;
//传入GUID值，使用GetSegmentInfo方法获得一个varaint型的字符串数组
avtemp:=oboCOASegments.GetSegmentInfo(GetUID);
//如果avtemp数组第一个下标不为空
if VarToStr(avtemp[0])<>EmptyStr then
//取avtemp[0]这个字符串第二个字符
m_sSeparater:= VarToStr(avtemp[0])[1]//请问这里[1]是什么意思呢.?
else
//否则m_sSeparater为空字符
m_sSeparater:=#0;
//cmbCode的掩码为GetCoaSegmentFormat
cmbCode.Properties.editMask:=GetCoaSegmentFormat
except
end
end;

给分吧。

追问

请问这里 avtemp:=oboCOASegments.GetSegmentInfo(GetUID);是怎么转化成字符串的,

追答

那你得看 GetSegmentInfo(GetUID) 这个方法里边怎么写的 他肯定返回一个varaint类型的Array数组。

Answer 2

if VarToStr(avtemp[0])<>EmptyStr then
m_sSeparater:= VarToStr(avtemp[0])[1]//请问这里[1]是什么意思呢.?
else
m_sSeparater:=#0;
将avtemp[0])转换为字符串，再取字符串的第二个字符
和Copy（avtemp[0]),2,1）这个基本是一样的