G guoyuzhang Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-16 #1 例如,有一个字符串'aaa',如何在它前面加上不定长的字符,变成'bbb...bbbaaa'
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-16 #4 如果在中间加： 比如在a的第2个字符位置加： a:='aaaaaaa'; Insert('bbbbbbbb', a, 2)
X xinglong Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-17 #7 用Concat函数，但合并后的字符超过255的话，只保留前255个字符，
B banelon Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-17 #8 随便灌些水..... 这个问题是否能说清楚一点，简单得不敢相信是个100分的问题呀！：-）
S Sachow Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-17 #9 用Insert过程 Insert的参数为：('源字符串','插入的新字符串',位置) 例如: String1:='aaaaaa'; Insert(String1,'Hello, World',3); 结果String变成'aaaHello, Worldaaa' 你可以将String1赋给任意一个显示字符串的控件来检验一下
用Insert过程 Insert的参数为：('源字符串','插入的新字符串',位置) 例如: String1:='aaaaaa'; Insert(String1,'Hello, World',3); 结果String变成'aaaHello, Worldaaa' 你可以将String1赋给任意一个显示字符串的控件来检验一下
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-19 #10 procedure front(var s:string;c:char;n:integer); var i:integer; begin for i := 1 to n do s := c + s; end; 例如: 若有 s:='aaa' 则用front(s,'b',100);后,s就为'bb..baaa' /~~~~~~ 100个'b' mophy@188.net
procedure front(var s:string;c:char;n:integer); var i:integer; begin for i := 1 to n do s := c + s; end; 例如: 若有 s:='aaa' 则用front(s,'b',100);后,s就为'bb..baaa' /~~~~~~ 100个'b' mophy@188.net
S spear Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-25 #11 变形后的字符串定长吗? 如果是则可以 1. 前端中 在beta的回答中加上长度控制即可( length函数) 2. dbms中用sql函数pad()(oracle中用的)
A aimingoo Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-25 #12 最快速的前端加入同一字符方法： var s : string = 'aaa'; c : char='b'; procedure insertHead(var theStr:string; theChar:char; len:integer); begin setlength(s,len + length(theStr)); fillchar(theStr[1],len,theChar); end; begin writeln(s); insertHead(s,c,20); writeln(s); end.
最快速的前端加入同一字符方法： var s : string = 'aaa'; c : char='b'; procedure insertHead(var theStr:string; theChar:char; len:integer); begin setlength(s,len + length(theStr)); fillchar(theStr[1],len,theChar); end; begin writeln(s); insertHead(s,c,20); writeln(s); end.
