Цитата:
var s:AnsiString;
s1, s2: WideString;
...
s := '7156664E';
s1 := WideString(Pointer(@s)^);
s1[Length(s) div 2 + 1] := #0;
L := length(s1);
SetLength(s2, L);
for i := 1 to L do
s2[L-I+1] := s1[i];
s :=AnsiString(Pointer(@s2)^);
|
ЗЫЖ для непонятливых: не использовать.