改造・ｿｰｽとかのスレ

<a href="http://img.xrea.com/ad_click.fcg" target="_blank"><img src="http://img.xrea.com/ad_img.fcg" border="0"></a>

■改造・ｿｰｽとかのスレ

17:｀）ノ//逆にする（コピペ:2003/05/18 16:17 ID:???
function StrReverse(s: WideString): WideString;
const //逆順にする
WCharCR : WideChar = #$0d;
WCharLF : WideChar = #$0a;
var
i : Integer;
begin
SetLength(Result, Length(s));
for i:=1 to Length(s) do begin
if (s[i] = WCharCR) and (s[i+1] = WCharLF) then begin
s[i] := WCharLF; s[i+1] := WCharCR;
end;
Result[Length(s)-i+1] := s[i];
end;
end;

1:1- 2:▲ 3:新
4:前 5:書 6:次
7:写 8:▼ 9:板