Daily Archives: 16.03.2017

Delphi. MySQL. Пишем в DECIMAL поле и читаем из него.

Posted on 16.03.2017 by Stanislav_Panteleev

Есть Decimal поле для цены в одном из проектов. Есть на форме 2 spinEdit, рубли и копейки соответственно. Чтение из базы Получение дробной части из Float(Real)

function TUniShopMilkAdminGoodsFrameMC.GetRestOfFloat(ASomeFloat: real): integer;
var 
  s:string;
begin
  ASomeFloat:=frac(ASomeFloat);
  str(ASomeFloat:0:2,s);
  Result:=strtoint(copy(s,pos('.',s)+1,6));
end;

function TUniShopMilkAdminGoodsFrameMC.GetRestOfFloat(ASomeFloat: real): integer;

var

s:string;

begin

ASomeFloat:=frac(ASomeFloat);

str(ASomeFloat:0:2,s);

Result:=strtoint(copy(s,pos('.',s)+1,6));

end;

Получение целой и дробной частей для загрузки на форму

  seRUB.Value:=Trunc(FCurrentGoodParams.Price);
  seKopeek.Value:=GetRestOfFloat(FCurrentGoodParams.Price);

1 2	seRUB.Value:=Trunc(FCurrentGoodParams.Price); seKopeek.Value:=GetRestOfFloat(FCurrentGoodParams.Price);

Запись в базу … Continue reading →

Posted in Delphi, MySQL | Comments Off

Delphi. Гениальная борьба с WideMemo

Posted on 16.03.2017 by Stanislav_Panteleev

Делаю проект на UniGUI. Соответственно, не могу воспользоваться DBGridEh Имеется поле типа TEXT в MySQL, Delphi определяет его как WideMemo Я просто создал кальк поле и прописал значения туда

procedure TUniShopMilkAdminUsersFrame.FDTableUsersCalcFields(DataSet: TDataSet);
begin
  FDTableUsersadressCalc.Value:=
  DBGridUsers.DataSource.DataSet.FieldByName('adress').AsString;
end;

procedure TUniShopMilkAdminUsersFrame.FDTableUsersCalcFields(DataSet: TDataSet);

begin

FDTableUsersadressCalc.Value:=

DBGridUsers.DataSource.DataSet.FieldByName('adress').AsString;

end;

Posted in Delphi | Comments Off

Daily Archives: 16.03.2017

Delphi. MySQL. Пишем в DECIMAL поле и читаем из него.

Delphi. Гениальная борьба с WideMemo

MY PROJECTS

Recent Posts

Categories