Показать сообщение отдельно
  #2  
Старый 12.05.2010, 16:50
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от cheburan88
Доброго времени суток!
Столкнулся с проблемой при сохранение массива в файл командой blockwrite.
AssignFile(f,'txt.txt');
Rewrite (f);
blockwrite(f, Xar,sizeof(Xar));
Вместо сохранения массива чисел сохраняются какие-то каракули неизвестной природы.
Как это исправить?
если надо сохранить именнно массив то попробуй вместо Rewrite(f); это Rewrite(f, 1);
А если тебе нужно сохранить число что-бы оно было читаемое в текстовике, то сохраняй не переменные (Integer, Cardinal, Float...) а строку числа (IntToStr, FloatToStr).
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием