Тип "Widestring"

[hydrogen]

Здравствуйте. В литературе написано: переменным типа Widestring и Longstring память выделяется динамически - во время работы программы, и длина таких строк практически не ограничена.
У меня программа копирует символы из файла А в строку [B]S[/B,] с типом Widestring, а из строки S в файл В. Файлы текстовые, в файле A 5768 символов, а переносится в B всего 754 символа (цифры могут быть не совсем точные +/-). Получается, что длина строки, с типом Widestring, ограничена?
Вот код программы:

procedure TForm1.Button1Click(Sender: TObject);
  var s:widestring;
  f,t:textfile;
begin
  assignfile(t,'c:\1.txt');
  reset(t);
  read(t,s);
  assignfile(f,'c:\100.txt');
  rewrite(f);
  write(f,s);
  closefile(t);
  closefile(f);
end;

[Arigato]

Можно код глянуть, что бы увидеть сочные цифры?

[goblinyara]

а 755 символ, случайно, не знак возврата каретки? ведь read(t,s) читает из файла до символа возврата каретки(в просторечии Enter), и всё... покопайте в сторону EOF(f: file)/

[mihali4]

Совершенно верно.
Если исходный файл имеет разбивку на строки, то в переменную будет прочитана только первая строка.

[hydrogen]

Как можно прочитать весь файл в строку? Есть ли такой оператор или процедура?

[Arigato]

Самый простой способ (но не эффективный): читать файл посимвольно и добавлять символы в строку.

[goblinyara]

хмм... насколько знаю, самому надо делать, стандартных функций не встречал... на первом курсе сам реализовывал подобное, и подсказку дал уже - копните в сторону EOF и EOLn

[hydrogen]

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

Самый простой способ (но не эффективный): читать файл посимвольно и добавлять символы в строку.

это как?

Function Eof[(var F: Text)]: Boolean;
(текстовые файлы)
Проверяет, является или нет текущая позиция файла концом файла.
Eof(F) возвращает True, если текущая позиция файла находится за последним символом файла или если файл пуст; иначе, Eof (F) возвращает False.

goblinyara как это мне может помочь?

[mihali4]

Например, вариант построчного чтения с добавлением:

  var s,s1:widestring;
  f,t:textfile;
begin
s:='';
  assignfile(t,'c:\1.txt');
  reset(t);
  while not eof(t) do
  begin
  readln(t,s1);
  s:=s+s1;
  end;
  assignfile(f,'c:\100.txt');
  rewrite(f);
  write(f,s);
  closefile(t);
  closefile(f);
end;

[Stilet]

Как можно прочитать весь файл в строку?

См. примеры в хелпе про функции BlockRead или открой файл в TFileStream и скопируй в TStringStream/