PDA

Показать полную графическую версию : [решено] ошибка NewComboBox;


Dimchik
12-12-2011, 22:18
нужно сделать лабораторную по программированию на делфи. есть инструкция.
вот часть кода из нее.


procedure TPagesDlg.N4Click(Sender: TObject);
var i:Integer;
begin
if dlgOpen1.Execute then
begin
AssignFile(F, dlgOpen1.FileName);
Reset(F); N:=0; while not Eof(F)
do begin Read(F,r);
strngrd1.Cells[0,N+1]:=r.prizv;
strngrd1.Cells[1,N+1]:=r.imja;
strngrd1.Cells[2,N+1]:=r.adresa;
strngrd1.Cells[3,N+1]:=r.tel;
N:=N+1; end; CloseFile(F);
Newedt(cbb1);
Newcbb;
{вот на эти две строки ругается делфи. писал именно так, потому, что у меня делфи делает сокращения, в инструкции NewEdit(ComboBox1); NewComboBox; }
end
end;


в чем причина?

AlexVol
13-12-2011, 15:53
А у tPagesDlg есть методы Newedt и Newcbb ?

Dimchik
14-12-2011, 01:24
Уже сам разобрался




© OSzone.net 2001-2012