K kingqc Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-18 #2 我要把一个string的长度固定 超出的就用...表示？如何做 比如 'I love delphi very much' 变成'I love delphi ...'
S sundart Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-19 #3 //str为你要格式化的字符串， len为固定长度。 function FormatStr(str : string;len : Integer) : string; begin Result := Copy(str,1,len) + '...'; end;
//str为你要格式化的字符串， len为固定长度。 function FormatStr(str : string;len : Integer) : string; begin Result := Copy(str,1,len) + '...'; end;
A allenk Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-19 #4 如果字符串短的话,就不好看了,最好能够加一个长度判断
Z zgdtxf Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-19 #6 那么如何补齐固定长度的字符串呢： 如len=10，str:='abced',用0补齐后为：'abced00000',一定要自己编程吗？
吴 吴明桓 Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #8 procedure TForm1.Button1Click(Sender: TObject); var str:string; begin str:=edit1.Text str:=copy(str,1,5); showmessage(str); end; 上面的过程用此方法可以解决
procedure TForm1.Button1Click(Sender: TObject); var str:string; begin str:=edit1.Text str:=copy(str,1,5); showmessage(str); end; 上面的过程用此方法可以解决
