Delphi record to string conversion example, using operator overload. #delphi

record_to_string.dpr

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TLocString = record
    Key, Value: string;

    class operator Implicit(a: TLocString): string;
    class function CreateNew(const aKey, aValue: string): TLocString; static;
  end;

class function TLocString.CreateNew(const aKey, aValue: string): TLocString;
begin
  Result.Key := aKey;
  Result.Value := aValue;
end;

class operator TLocString.Implicit(a: TLocString): string;
begin
  Result := a.Value;
end;

var
  tmpLocString: TLocString;
  s: string;
begin
  try
    tmpLocString := TLocString.CreateNew('key123', 'value123');
    s := tmpLocString;
    Writeln(s);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.