Помогите перевести с Паскаля на PSQL функцию
Добавлено: 29 авг 2006, 14:59
Помогите перевести функцию написанную в Delphi в PSQL
Буду очень признателен!
Или подскажите аналогичные функции Length Ord Result
А то я в PSQL не силён и ничего не выходит...
Код: Выделить всё
function UnCryptoString(ASource: String; AShift: Integer): String;
var
StrLength, i: Integer;
begin
Result := ASource;
StrLength := Length(Result);
for i := 1 to StrLength do
if Result [i] >= #32 then
Result [i] := Chr ((Ord (Result [i]) + 192 - AShift) mod 224 +32);
end;
Или подскажите аналогичные функции Length Ord Result
А то я в PSQL не силён и ничего не выходит...