求一个关于把字串等分的方法!

tinylion971 2003-06-27 12:06:53
我的定义如下:
A:array [1..60] of string;
B: array [1..12] of string;

如果我想把字串A【1】按顺序每5个取出来存到B中去,怎么实现那?

(因为A 是一个长为60的字串,所以60/5=12,真好存到一个维数是12的B数组中去)
...全文
15 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
tinylion971 2003-06-28
  • 打赏
  • 举报
回复
没说清楚,非常抱歉,望大家回帖
tinylion971 2003-06-28
  • 打赏
  • 举报
回复
TO wooden954(wooden)

sorry,我的意思是A[0],A[1],A[2],A[3],A[4]组成B[1]
A[5],A[6],A[7],A[8],A[9]组成B[2],以下类推
wooden954 2003-06-28
  • 打赏
  • 举报
回复
楼主的意思是把a[0],a[1],a[2],a[3],a[4]取出来加到一起然后存到b[0]中呢,还是将a[0]的60个字符中每5个取出来,然后与a[1]的每5个字符相加,然后再加a[2]的直到a[50]的,然后存到b[0]中呢?说清楚才能做呀!
tccb 2003-06-28
  • 打赏
  • 举报
回复
for i:=1 to 12 do
b[i] := a[i*5];
tinylion971 2003-06-28
  • 打赏
  • 举报
回复
更正:上面的A定义应该是
A:array [1..50] of string;

A[1]--A[50]都是长为60的字串
怎么没人回呀!

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧