Rash thoughts about .NET, C#, F# and Dynamics NAV.

PROCEDURE CreateTable@1000000007(
  p_NewObjectID@1000000002 : Integer;
  p_NewObjectName@1000000003 : Text[250]);
VAR
  l_Object@1000000004 : Record 2000000001;
  l_NewObject@1000000005 : Record 2000000001;
BEGIN
  // Copy Migration Template Table
  l_Object.GET(l_Object.Type::Table,'',
    DATABASE::"Migration Template");
  l_Object.CALCFIELDS("BLOB Reference");

  l_NewObject.INIT;
  l_NewObject.COPY(l_Object);
  l_NewObject.ID := p_NewObjectID;
  l_NewObject.Name := p_NewObjectName;
  l_NewObject.INSERT(TRUE);
END;

PROCEDURE AddFieldToTable@1000000009(
  p_TableNo@1000000001 : Integer;
  p_FieldID@1000000003 : Integer;
  p_FieldName@1000000002 : Text[250];
  p_Type@1000000004 : Text[30];
  p_Width@1000000005 : Integer);
VAR
  l_Field@1000000000 : Record 2000000041;
BEGIN
  l_Field.INIT;
  l_Field.TableNo := p_TableNo;
  l_Field."No." := p_FieldID;
  l_Field.FieldName:= p_FieldName;
  CASE p_Type OF
    'Text':
      BEGIN
        l_Field.Type := l_Field.Type::Text;
        IF p_Width < 250 THEN
          l_Field.Len := p_Width
        ELSE
          l_Field.Len := 250;
      END;
    'Date': l_Field.Type := l_Field.Type::Date;
    'Double': l_Field.Type := l_Field.Type::Decimal;
    'Long': l_Field.Type := l_Field.Type::Integer;
    'Memo':
      BEGIN
        l_Field.Type := l_Field.Type::Text;
        l_Field.Len := 250;
      END;
    ELSE
      ERROR(Text003,p_Type);
  END;
  l_Field.Enabled := TRUE;
  l_Field.SQLDataType := l_Field.SQLDataType::Varchar;
  l_Field.INSERT(TRUE);
END;

PROCEDURE GetStringWithDelimiter@1000000011(
  p_Text@1000000000 : Text[1024];
  p_ID@1000000001 : Integer;
  p_Delimiter@1000000002 : Char) 
  Result : Text[1024];
VAR
  l_DelimiterCount@1000000003 : Integer;
  i@1000000004 : Integer;
  l_StringOpen@1000000005 : Boolean;
BEGIN
  l_DelimiterCount := 1;

  FOR i := 1 TO STRLEN(p_Text) DO BEGIN
    IF (p_Text[i] = '"') AND (NOT l_StringOpen) THEN
      l_StringOpen := TRUE;
    IF (p_Text[i] = '"') AND 
      l_StringOpen AND ((STRLEN(p_Text) = i) OR 
      (p_Text[i+1] = p_Delimiter)) 
    THEN
      l_StringOpen := FALSE;

    IF (p_Text[i] = p_Delimiter) AND NOT l_StringOpen 
    THEN BEGIN
      l_DelimiterCount := l_DelimiterCount + 1;
      IF l_DelimiterCount > p_ID THEN
        EXIT(Result);
    END ELSE
      IF (l_DelimiterCount = p_ID) AND (p_Text[i]  '"')
      THEN
        Result := Result + COPYSTR(p_Text,i,1);
  END;
END;

PROCEDURE GetString@1000000010(
  p_Text@1000000000 : Text[1024];
  p_ID@1000000001 : Integer;
  p_Delimiter@1000000002 : Char) 
  Result : Text[1024];
VAR
  l_DelimiterCount@1000000003 : Integer;
  i@1000000004 : Integer;
  l_StringOpen@1000000005 : Boolean;
BEGIN
  l_DelimiterCount := 1;

  FOR i := 1 TO STRLEN(p_Text) DO BEGIN
    IF (p_Text[i] = p_Delimiter) THEN BEGIN
      l_DelimiterCount := l_DelimiterCount + 1;
      IF l_DelimiterCount > p_ID THEN
        EXIT(Result);
    END ELSE
      IF (l_DelimiterCount = p_ID) AND (p_Text[i]  '"')
      THEN
        Result := Result + COPYSTR(p_Text,i,1);
  END;
END;