#1814411 "Incorrect SQL when changing structure on a field"
#1814293 "Incorrect SQL when changing structure on a FLOAT field"
This commit is contained in:
Ansgar Becker
2007-10-16 19:34:25 +00:00
parent 0d0c0ddbef
commit 17f9730b76
2 changed files with 9 additions and 6 deletions

View File

@ -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

View File

@ -288,10 +288,15 @@ 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 := '';
// 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;