Free Online Delphi to F# Code Converter

Instantly convert code snippets from Delphi to F# with our free online code converter. Transform your code easily and accurately.

Unlock Powerful Code Conversion with Advanced AI Models

Convert up to 100,000 characters per request
Support for 61+ languages and frameworks
Convert code snippets or sets of files
Powered by cutting-edge AI (Claude 3.5 Sonnet and GPT-4) and LLMs agents

Experience the full potential of AI-driven code conversion and transformation!

How to Use Our Delphi to F# Code Converter

Paste your Delphi code snippet into the input box.
Click the "Convert" button to transform your code.
Our AI-powered converter will instantly translate your Delphi code to F#.
Copy the converted F# code and use it in your project.

Is Our Delphi to F# Converter Secure?

We prioritize your code's security and privacy. Your code is not stored on our servers and is only temporarily processed for conversion. We use OpenAI's secure servers for the conversion process, ensuring your code remains confidential.

About Delphi

Delphi is an event-driven programming language based on Object Pascal.

About F#

F# is a functional-first programming language that makes it easy to write correct and maintainable code.

Palindrome Check Example: Delphi vs F#

Palindrome Check in Delphi

function IsPalindrome(const S: string): Boolean;
var
  CleanStr: string;
  I: Integer;
begin
  // Remove non-alphanumeric characters and convert to lowercase
  CleanStr := '';
  for I := 1 to Length(S) do
    if S[I].IsLetterOrDigit then
      CleanStr := CleanStr + S[I].ToLower;

  // Check if the string is equal to its reverse
  Result := CleanStr = ReverseString(CleanStr);
end;

// Example usage
WriteLn(IsPalindrome('A man, a plan, a canal: Panama'));  // True
WriteLn(IsPalindrome('race a car'));  // False

Palindrome Check in F#

open System

let isPalindrome (str: string) =
    let clean = String.Join("", str.ToLower().ToCharArray()
                |> Array.filter Char.IsLetterOrDigit)
    clean = String(clean.ToCharArray() |> Array.rev)

# Example usage
printfn "%b" (isPalindrome "A man, a plan, a canal: Panama") // true
printfn "%b" (isPalindrome "race a car") // false

Bubble Sort Example: Delphi vs F#

Bubble Sort in Delphi

procedure BubbleSort(var Arr: array of Integer);
var
  I, J, Temp: Integer;
begin
  for I := High(Arr) downto Low(Arr) do
    for J := Low(Arr) to I - 1 do
      if Arr[J] > Arr[J + 1] then
      begin
        Temp := Arr[J];
        Arr[J] := Arr[J + 1];
        Arr[J + 1] := Temp;
      end;
end;

// Example usage
var
  Arr: array of Integer;
begin
  SetLength(Arr, 7);
  Arr[0] := 64; Arr[1] := 34; Arr[2] := 25; Arr[3] := 12;
  Arr[4] := 22; Arr[5] := 11; Arr[6] := 90;

  WriteLn('Original array:');
  PrintArray(Arr);

  BubbleSort(Arr);

  WriteLn('Sorted array:');
  PrintArray(Arr);
end;

Bubble Sort in F#

let bubbleSort (arr: int array) =
    let n = Array.length arr
    for i in 0 .. n - 1 do
        for j in 0 .. n - i - 2 do
            if arr.[j] > arr.[j + 1] then
                let temp = arr.[j]
                arr.[j] <- arr.[j + 1]
                arr.[j + 1] <- temp
    arr

let arr = [|64; 34; 25; 12; 22; 11; 90|]
bubbleSort arr |> Array.iter (printf "%d ")