有没有字符反转的函数？？？？(30分)

  • 主题发起人 主题发起人 天真
  • 开始时间 开始时间
天

天真

Unregistered / Unconfirmed
GUEST, unregistred user!
如'abcdef'->'fedcba'??
有没有这种函数？SQL是有的DELPHI中有没有？
 
DELPHI中没有吧,需要自己写一个吧.
 
jjsdfr6rfd*((t^e$@)(_)(*^$@
 
function ADReverseStr(const Value: string): string;
var
i, iLen, iIndex: Integer;
begin
iLen := Length(Value);
SetLength(Result, iLen);
iIndex := 1;
for i := iLen downto 1 do
begin
Result[iIndex] := Value;
Inc(iIndex);
end;
end;
 
Do it yourself!!!
 
Adnil:谢谢花了这么多功夫给我写了这么长一段代码，：），如果平分的话，我把孔明的分数等给你：）
 
呵呵，不客气！
 
呵，但其实我是想知道DELPHI中是否找，至于写这个函数嘛.....
 
我就知道你只是想看有没有，写这个函数当然...,
 
天真兄：
看這個函數，
uses StrUtils;
function ReverseString(const AText: string): string;
 
是D6的吗我在中没有找到！：—）
 
c就有，还是标准函数：）
混分
 
孔明就不应该给分，扁他。浪费大富翁的数据库资源，占用一条记录的存储空间！
扁
 
看来没结果的，算了！
 
function fanzhuan(str:string):string;
var
i:integer;
begin
for i:=length(str) downto 1 do
result:=result+str;
end;

看看这个好不好用
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
C
Paradox库，TQuery控件，Select 语句中有无 Length(字符字段名) 类似的函数？(50分)
回复
6
查看
159
cmtan
C
G
字符串的拼接问题(100分)
回复
7
查看
207
lldhz
L
Y
有没有判断字符串是否位数字的函数(1分)
回复
9
查看
382
yangpeng0622
Y
L
请问有这样的字符串转换函数吗？(100分)
2
回复
21
查看
589
lah998
L
后退
顶部