Convert delphi codes to ruby

Ruby
1

Hello, I have some sample delphi codes which I want to convert to Ruby
for test purposes, anyone can help me:

  1. Replace single quotes with double quotes:

function ReplaceSingleQuote(AText: String): String;
begin
Result := ‘’;
if Length(AText) = 0 then
Exit;
Result := StringReplace(AText, ‘’’’, ‘’’’’’, [rfReplaceAll]);
end;

  1. ANSI Split Strings:

function AnsiSplitStrings(const str: string;const separator: string =
‘,’;Strings: TStrings = nil): TStrings;
var
n: integer;
p, q, s: PChar;
item,sString: string;
begin
if Strings = nil then
Result := TStringList.Create
else
Result := Strings;
if str=’’ then exit;
if str[Length(str)] = separator then
sString := AnsiLeftStr(str,Length(str)-1)
else
sString := str;

 try
    p := PChar(sString);
    s := PChar(separator);
    n := Length(separator);
    repeat
          q := AnsiStrPos(p, s);
          if q = nil then q := AnsiStrScan(p, #0);
          SetString(item, p, q - p);
          Result.Add(item);
          p := q + n;
    until q^ = #0;
 except
       item := '';
       if Strings = nil then Result.Free;
       raise;
 end;

end;

  1. Check phone format:

function IsPhoneFormatCorrect(sPhoneNo: string): Boolean;
var iPos:integer;
begin
if Length(sPhoneNo) > 0 then
begin
iPos := 1;
Result := (Length(sPhoneNo) > 3) and (sPhoneNo[iPos] = ‘+’)
and (AnsiPos(’(’,sPhoneNo) > 1) and (AnsiPos(’)’,sPhoneNo) >
(AnsiPos(’(’,sPhoneNo)+1));
end
else
Result := true;
end;

T.I.A.

2

On Wed, Jun 6, 2012 at 9:09 AM, RR TT [email protected] wrote:

Hello, I have some sample delphi codes which I want to convert to Ruby
for test purposes, anyone can help me:

These are all one liners. Btw, I would assume Delphi solutions could
be shorter as well.

  1. Replace single quotes with double quotes:

function ReplaceSingleQuote(AText: String): String;
begin
Result := ‘’;
if Length(AText) = 0 then
Exit;
Result := StringReplace(AText, ‘’‘’, ‘’‘’‘’, [rfReplaceAll]);
end;

result = a_text.gsub /‘/, "’'"

Result := TStringList.Create
s := PChar(separator);
if Strings = nil then Result.Free;
raise;
end;
end;

result = str.split(Regexp.new(Regexp.escape(separator)))

(AnsiPos(‘(’,sPhoneNo)+1));
end
else
Result := true;
end;

result = /\A(?:+[^)]([^()].).*)?\z/ =~ s_phone_no

Funny thing is: you do not require numbers in the phone number.
Also, the empty string is a phone number which seems rather odd to me.
Even if an empty string is OK I would make the function only check
for properly formatted phone numbers and have the check for empty
string outside. That is much more modular and can be better reused.

Cheers

robert

3

On Wed, Jun 6, 2012 at 10:57 AM, RR TT [email protected] wrote:

Thanks Robert, am very new to Ruby and learning the way around to work
with it. In fact I got these delphi codes from a friend, and wanted to
try them out to see how to write them in Ruby instead.

Well, of course you can translate the original functions mechanically,
although I would not recommend it. Replace “function” with “def”,
remove “begin” and variable declarations and replace “:=” with “=”.
Also note that indexes start at 0 in Ruby and not 1 as apparently in
Delphi.

Cheers

robert

4

Thanks Robert, am very new to Ruby and learning the way around to work
with it. In fact I got these delphi codes from a friend, and wanted to
try them out to see how to write them in Ruby instead.