diff --git a/source/fieldeditor.pas b/source/fieldeditor.pas index c9cda8e5..fd51f6bb 100644 --- a/source/fieldeditor.pas +++ b/source/fieldeditor.pas @@ -192,9 +192,7 @@ begin EditComment.Text := NodeData.Captions[5]; // extract field type - strtype := UpperCase( NodeData.Captions[1] ); - if Pos ('(',strtype) > 0 then - strtype := Trim(copy (strtype,0,Pos ('(',strtype)-1)); + strtype := UpperCase( getFirstWord( NodeData.Captions[1] ) ); // field field type structure for i := Low(MySqlDataTypeArray) to High(MySqlDataTypeArray) do diff --git a/source/helpers.pas b/source/helpers.pas index 8364adbc..16a4bdcc 100644 --- a/source/helpers.pas +++ b/source/helpers.pas @@ -288,9 +288,14 @@ var p1,p2 : Integer; begin p1 := pos('(', str); - if p1 = 0 then p2 := Length(str) + 1 - else for p2:=strlen(pchar(str)) downto 0 do if str[p2] = ')' then break; - result := copy (str, p1+1, p2-p1-1); + Result := ''; + // Only return something if opening bracket was found, otherwise empty string + if p1 > 0 then + begin + for p2:=strlen(pchar(str)) downto 0 do + if str[p2] = ')' then break; + result := copy (str, p1+1, p2-p1-1); + end; end;