Показать сообщение отдельно
  #23  
Старый 25.09.2012, 11:19
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от icWasya
И соответственно
Код:
BlockRead(F,I,SizeOf(I));
UniqueString(S);
SetLength(S,I);
BlockRead(F,S[1], Length(St)*SizeOf(St[1]));
UniqueString здесь не нужна. Хотя конечно в таких случаях лучше перестраховаться
А вот с выражением SizeOf(St[1]) надо бы поосторожнее...
Ответить с цитированием