vitaly_l Вы это запустили? Хм... а я устал править код.
Закомментируйте, close <-- как в примере и будет Вам счастье.
да???
wwswowsogonВнезапно словил странный глюк:
хм... Начнём:
1. DirectorySeparator - знакомо?
2. TryStrToDate - в вашем варианте более желателен.
3. пути.... есть такое слово
const. Т.е. прописывайте путь в виде константы.
4. Utf8Pos и похожее - рецепт для лазаря (учитывая что файлы у вас в ютф8...).
....
и много, много чего
...
В общем, по идее, "ловите" исключение и происходит вылет приложения. Т.е. вы вызвали модальную форму и пытаетесь править главную.. По идее - не стандартная ситуация, мягко говоря.
Советую добавить "отлов" ModalResult. И вынести процедуру заполнения из диалога в главную форму (или какая у вас она там).
Т.е.
- Код: Выделить всё
procedure TCard1.BitBtn1Click(Sender: TObject);
begin
Dlg1.NewRow := 1;
Dlg1.ShowModal;
if Dlg1.ModalResult = mrok then
begin
if DataCh = 1 then
begin
if NewRow = 1 then
begin
Card1.Data1.RowCount := Card1.Data1.RowCount + 1;
....
end else
begin
Card1.Data1.Cells[1, Card1.NSS] := CB1.Text;
....
end;
end;
end;
Могу ошибаться. Программа не запустилась. Ну...у лень править столько
![Embarassed :oops:](./images/smilies/icon_redface.gif)