ClientDataSet - изменить размер (Size) поля

[Highlander1981]

Помогите решить задачку:
Программно создаю таблицу .cds

     ClientDataSet1.FileName := 'test.cds';
     ClientDataSet1.FieldDefs.Clear;
     With ClientDataSet1.FieldDefs.AddFieldDef do
       begin
         DataType := ftAutoInc;
         Name := 'VuzCode';
       end;
     for i:=1 to 99 do
       begin
         With ClientDataSet1.FieldDefs.AddFieldDef do
           begin
             DataType := ftString;
             Name := 'F' + IntToStr(i);
           end;
       end;
     ClientDataSet1.CreateDataSet;
     ClientDataSet1.SaveToFile('test.cds',dfBinary);

Тут все нормально. Но... Дело в том, что данные будут считываться из защищенных документов Word. Доков много порядка 300шт. Текстовые поля ввода в них соответсвенно не ограниченны. Необходимо программно в процессе заполнения данных увеличивать размер полей ClientDataSet в случае если текст не помещается. Попытался реализовать это таким образом:

     FindRes:=FindFirst('...папка\*.doc',faAnyFile-faHidden,SR);
     While FindRes=0 do
        begin
          WordApp:=CreateOleObject('Word.Application');
          WordApp.Application.Documents.Open(FileName := '...папка\'+SR.Name, ReadOnly:=true);
          ClientDataSet1.Append;
          for i:=1 to WordApp.Application.ActiveDocument.FormFields.Count do
            begin
             defNumer := ClientDataSet1.FieldDefs.IndexOf('F'+IntToStr(i));
             if Length(WordApp.Application.ActiveDocument.FormFields.Item(i).Result) > ClientDataSet1.FieldDefs[defNumer].Size
                then
                  begin
                   ClientDataSet1.Post;
                   if ClientDataSet1.Active then ClientDataSet1.Close;
                   ClientDataSet1.FieldDefs.Update;
                   ClientDataSet1.FieldDefs.Items[defNumer].Size := Length(WordApp.Application.ActiveDocument.FormFields.Item(i).Result);
                   ClientDataSet1.Open;
                   ClientDataSet1.Last;
                   ClientDataSet1.Edit;
                  end;

              ClientDataSet1.FieldByName('F'+IntToStr(i)).AsString := WordApp.Application.ActiveDocument.FormFields.Item(i).Result;
            end;
          ClientDataSet1.Post;
          WordApp.application.Quit(true,0);
          FindRes:=FindNext(SR);
        end;
     FindClose(SR); // закрываем поиск

Но поле как создается с длиной по умолчанию 20символов, так и остается. Где ошибка? Или вообще в принципе не возможно внести изменения после применения CreateDataSet?

[mihali4]

Необходимо программно в процессе заполнения данных увеличивать размер полей ClientDataSet в случае если текст не помещается

А почему не использовать мемо-поля?
До размера 255 символов они ведут себя практически как строковые.
Больше - расширяются на сколько нужно...

[Highlander1981]

Сообщение от mihali4

А почему не использовать мемо-поля?
До размера 255 символов они ведут себя практически как строковые.
Больше - расширяются на сколько нужно...

А если больше 255? Мне просто нужно потом будет накладывать фильтры, а как это будет реализовываться с Memo?
Я просто их не использовал никогда...
Сейчас проверил Memo результат меня в полне устраивает в табличном отображении...

[Highlander1981]

Спасибо, mihali4, в принципе проблема решилась с использованием Memo...
Но тем не менее вопрос остется открытым возможно ли изменить размер поля?
По существу, допустим надо будет какое-то поле со временем увеличить (например,числовое), что опять всю базу перекопировать в новый .cds по строчно или все-таки поле можно увеличить, не повредив уже имеющимся данным?

[mihali4]

поле можно увеличить, не повредив уже имеющимся данным

Думаю, что да.
Я предложу такой вариант (когда-то использовал):
1. Создайте временное поле и скопируйте в него данные из того поля, размер которого вы хотите изменить.
2. Удалите поле, которое хотите изменить.
3. Создайте его вновь, но уже с нужным размером.
4. Скопируйте данные из временного поля (см. п.1) в созданное поле с нужным размером.
5. Удалите временное поле.
Это делается на SQL.
Используется ALTER TABLE с ADD и DROP.

[Highlander1981]

Сообщение от mihali4

Это делается на SQL.
Используется ALTER TABLE с ADD и DROP.

Думаю SQL не прокатит у меня же данные хранятся в *.cds. Не удобно конечно, без SQL. Но задача свести БД к двум файлам без заморочек с провайдерами. Ну а в случае чего придется через дополнительный DataSet переносить данные с уже измененными полями, логика понятна, спс!.
Кстати от Memo тоже пришлось отказаться, Locate не работает с Memo-полями, так что вернулся к String (размер с запасом указал).