Конференция "Corba" » Как переписать из Word в массив символов [Delphi]
 
  • mm0 (03.03.10 07:24) [0]
    Нужно переписать все символы из некого открытого документа Word в массив символов Delphi.
    Как это  правильно сделать?
    Нашел тупой и медленный способ
    ......
    var  data:array[1..100000] of char;
    .....
    Form1.L:=WordApp.ActiveDocument.Characters.Count;
    for i:=1 to Form1.L do
       begin
         s:=WordApp.ActiveDocument.Range(i-1,i).Text;
         if Length(s)<1 then s:=' ';
         Form1.data[i]:=s[1];
      end;
    .....

    Вариант
    var   s:string;
     s:=(WordApp.ActiveDocument.Range.Text);
    не подходит, т.к в моих документах есть символы, которые некоректно заносятся в s(полагаю символ конца строки для delphi).
  • YurikGL © (09.03.10 21:24) [1]
    Я бы посоветовал сначала весь WordApp.ActiveDocument.Range(от начала до конца).Text затащить в TStringList и работал бы уже с ним. А дергать посимвольно из ворда действительно долго.

    А зачем именно массив символов? Чем строка или TStringList не подходят?
 
Конференция "Corba" » Как переписать из Word в массив символов [Delphi]
Есть новые Нет новых   [103795   +3][b:0.001][p:0.001]