izvenite, nu u meni na laptore net ruskixx bukv..
....
type
Order = class
name: string;
mass: integer;
Poit2Del: string;
TimeMake:integer;
...
var
ordInDay: array of Order;

Vopros : kak mozno pokazat ordInDay v vide table? OrdInDay menyaetsa pri perexode na sleduisii DAY ( est takoi sikl).S pomosiu Memo che to ne ochen krasivo poluchaetsa, a s StringGrid ne znau kak table CLEAR delat( ruchnyuy( po CELLS delat ochen dolgo...)
Bolsoe spasibo !

Здравствуйте, Аноним, Вы писали:

А>s StringGrid ne znau kak table CLEAR delat( ruchnyuy( po CELLS delat ochen dolgo...)

StringGrid.RowCount := 0;

Здравствуйте, Аноним, Вы писали:

А>Vopros : kak mozno pokazat ordInDay v vide table?

Скорее стоит спросить — как хочется показать? Три стандартных компонента для плоских списков — TStringGrid, TListView и TListBox.

Насчет очистки — "очень долго" пожалуй что звучит забавно, но вопрос в другом — а нужно ли Вам показывать очищенную таблицу? Обычно вполне сойдет такой метод очистки, как StringGrid.Hide.

w>StringGrid.RowCount := 0;

Останется одна неочищенная строка.

spasibo, stringgrid.rowcount pomog !
teper takoi vopors : u meni est takoi silk : ot DAY 1 to DAY 30,i v Order est pole DATE : ego znachenie = DAY sozdanya.I pri perexode na sleduishi sag ( nu DAY+1) etot DATE dolzen auto uvelichivaetsa na 1 . kak eto mozno realizovat ?
Spasibo

eshe :

===================
procedure TForm1.BProccessClick(Sender: TObject);
type Porder = ^order;
var i,j,k,OrdNum:integer;
p:Porder;
ordwait:Tlist;
begin
randomize;
ordwait:=Tlist.Create;
ordNum:=randomrange(2,10);
Setlength(OrdInDay,OrdNum);
for j:=0 to OrdNum-1 do
begin
OrdInDay[j]:=Order.Create;
OrdInDay[j].name:=Productbase[random(7)].name;
OrdInDay[j].mass:=random(40)+4;
OrdinDay[j].Poit2Del:=randomfrom(shopname);
OrdinDay[j].TimeMake:=randomrange(2,5);
new(p);
p^:=ordinday[j];
ordwait.Add(p);
end;
for k:=0 to Ordwait.Count-1 do
begin
p:=ordwait[k];
while productbase[i].name <> p^.name do i:=i+1;
if p^.mass <= productbase[i].massS then
begin
productbase[i].massS:=productbase[i].massS-p^.mass;
//dispose(p);
ordwait.Delete(k); // Sto za ERROR tut ???//
viewtab.Lines.add('order done');
end
else showmessage('mass not enough');
i:=0;
end;

========
s udaleniem elementa iz TList est ERROR, kak pravilno delat ? Productbase i OrdInDay vse OK.