🚀 go-pugleaf

Hi,

How can I convert these two functions to C# Builder?

Thanks in advanced,
Asaf


function TForm1.SetCharPlacement(sText: String): String;
var
  dc: HDC;
  GCP: TGCPResults;
  lpClass: String;
  nLen: integer;
begin
  DC := GetDc(0);
  SetTextAlign(dc, TA_RTLREADING);

  nLen := Length(sText);
  setLength(lpClass, nLen);
  GCP.lStructSize := sizeof(TGCPResults);
  GCP.lpOutString := nil;
  GCP.lpOrder := nil;
  GCP.lpDx := nil;
  GCP.lpCaretPos := nil;
  GCP.lpClass := pointer(lpClass);
  GCP.lpGlyphs := nil;
  GCP.nGlyphs := nLen;
  GCP.nMaxFit := 0;
  GetCharacterPlacement(dc,
                        PChar(sText),
                        LongBool(nLen),
                        LongBool(0),
                        GCP,
                        GetFontLanguageInfo(dc));
   result := reorder(sText, lpClass);
end;

function TForm1.reorder(text, lpClass: String): String;
var
  buffer: string;
  mode, prevMode, i: integer;
begin
  result := '';
  prevMode := -1;
  buffer := '';
  for i := 1 to length(text) do begin
    mode := 2;
    if (lpClass[i] <> #2) then mode := 1;
    if (mode <> prevMode) then begin
      prevMode := mode;
      if length(buffer) > 0 then result := result + buffer;
      buffer := '';
    end;
    if mode = 2 then
      buffer := buffer + text[i]
    else
      buffer := text[i] + buffer;
  end;
  result := result + buffer;
end;