16,748
社区成员
发帖
与我相关
我的任务
分享字符串问题。
一个字符串： aass(#9)ssssd(#9)hfgjs(#9)fksjghnhgf(#9)fhjkshga
如何将每个＃9之间的字符串分别存入数组？
例如：a[0]:='aass'
a[1]:='ssssd'
....
另外，＃9是跳格键（TAB）是不是只算一个字符？
如何将每个＃9之间的字符串分别存入数组？
例如：a[0]:='aass'
a[1]:='ssssd'
....
另外，＃9是跳格键（TAB）是不是只算一个字符？
...全文
请发表友善的回复…
发表回复
zzlingaaa 2005-04-26
- 打赏
- 举报
＃这个是中文字符,9是西文字符,所以＃9算3个字符,呵呵
duanhai 2005-04-26
- 打赏
- 举报
不知楼主的字符串是不是如下格式？
procedure TForm1.Button1Click(Sender: TObject);
var
strTemp: string;
i: Integer;
begin
strTemp := 'aass'+#9+'ssssd'+#9+'hfgjs'+#9+'fksjghnhgf'+#9+'fhjkshga';
Memo1.Lines.Delimiter := #9;
Memo1.Lines.DelimitedText := strTemp;
for i := 0 to Memo1.Lines.Count - 1 do
begin
//赋值
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
strTemp: string;
i: Integer;
begin
strTemp := 'aass'+#9+'ssssd'+#9+'hfgjs'+#9+'fksjghnhgf'+#9+'fhjkshga';
Memo1.Lines.Delimiter := #9;
Memo1.Lines.DelimitedText := strTemp;
for i := 0 to Memo1.Lines.Count - 1 do
begin
//赋值
end;
end;
g961681 2005-04-26
- 打赏
- 举报
with TStringList.Create do
try
Text := StringReplace(ssss, #9, #13#10, [rfReplaceAll, rfIgnoreCase]);
for i := 0 to count - 1 do
begin
a[i] := Strings[i];
end;
finally
Free;
end;
try
Text := StringReplace(ssss, #9, #13#10, [rfReplaceAll, rfIgnoreCase]);
for i := 0 to count - 1 do
begin
a[i] := Strings[i];
end;
finally
Free;
end;
jiangshi99 2005-04-26
- 打赏
- 举报
＃9算两字符！
