急 用Delphi怎么比较特定位置的字符

[orangeql]

用Delphi怎么比较特定位置的字符

if (length(edFrom.text)=17 and copy(edFrom.Text,3,1)：='-' and copy(edFrom.Text,10,1)：='-' and copy(edFrom.Text,14,1)：='-'then

20-008147-000-AED 目的是限制用户输入像这样的数据 要格式一样。

[spiritsoft]

1.各and间的比较内容，必须要用括号;2.if语句中不能用赋值：=。
正确的语句应是:
if ((length(edFrom.text)=17) and (copy(edFrom.Text,3,1)='-') and (copy(edFrom.Text,10,1)='-') and (copy(edFrom.Text,14,1)='-') then

[funxu]

给你个例子
procedure TForm1.Button3Click(Sender: TObject);
var
Str:String;
ResultList:TStringList;
I:Integer;
begin
str:= '南京~信息~工程~大学';

ResultList := TStringList.Create;
try
ResultList.Delimiter := '~';
ResultList.DelimitedText := str;

for I:= 0 to ResultList.Count-1 do
begin
Memo1.Lines.Add(ResultList.Strings[I]);
end;
finally
FreeAndNil(ResultList);
end;
end;

只需要判断ResultList的count和字符串的长度就可以了