WallHero

tst

Sep 16th, 2020
601
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure chargeDataToGrid(index:integer; article:TArticulo);
  2. var
  3.   articleToGrid:TStringList;
  4. begin
  5.   articleToGrid:=TStringList.Create;
  6.   articleToGrid.CommaText:= IntToStr(article.Codigo)+','+ FloatToStr(article.Precio_Unitario)+','+ IntToStr(article.Stock)+',' +string(article.Tipo_Articulo)+','+ string(article.descripcion)+','+ string(article.estado);
  7.   frmArticles.grdArticles.Rows[index] := articleToGrid;
  8.   articleToGrid.Free;
  9. end;    
RAW Paste Data