[Aristarh Dark]

Значит данные у тебя в поле не такие как ты описал.

Специально проверил:

Код:

var
  c:Single;
  a:String;
begin
  a:='4444\4';
  c:=StrToInt(Copy(a,1,4))/StrToInt(Copy(a,6,1));
  ShowMessage(FloatToStr(c));
end;

Выдало 1111

Возможно поле в которое ты записываешь значение переменной у тебя целочисленное.

Тогда попробуй так:

Код:

var
s:string;
c:Integer;
begin
s:=table2.FieldByName('DDD').asString;
c:= StrToInt(copy(s,1,4)) div StrToInt(copy(s,6,1));
table2.Edit ;
table2.FieldByName('AAA').AsInteger:=c;
table2.Post;
end;

или так

Код:

var
s:string;
c:Single;
begin
s:=table2.FieldByName('DDD').asString;
c:= StrToInt(copy(s,1,4))/ StrToInt(copy(s,6,1));
table2.Edit ;
table2.FieldByName('AAA').AsInteger:=Trunc(c);
table2.Post;
end;