Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.09.2009, 14:23
Scooter Scooter вне форума
Прохожий
 
Регистрация: 02.07.2007
Сообщения: 18
Репутация: 10
Вопрос TFilestream + Записи не могу понять ((

Здравствуйте! Не могу понять в чем ошибка: описываю свой тип TUpdateInf присваиваю переменной этого типа значения записываю все это в файл с помошью TFileStream потом читаю и вывожу все это на экран с помошью ShowMessage, одно из двух либо выходит абракадабра либо вылетает ошибка Access violation at address... В чем обшибка подскажите?



Код:
  
private
    { Private declarations }
  public
    { Public declarations }
  end;

TUpdateInf = Record
             FName: Array[0..999] of String;
             FUpd: Array[0..999] of Boolean;
             End;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BWriteClick(Sender: TObject);
var
I:SmallInt;
F:TFileStream;
Inf:TUpdateInf;
begin
For I:=0 to 9 do
    Begin
    Inf.FName[i]:='test' + inttostr(i);
    Inf.FUpd[i]:=True;
    End;

F:=TFileStream.Create('C:\1.txt',FmCreate);
F.WriteBuffer(Inf,SizeOf(TUpdateInf));
F.Free;
end;

procedure TForm1.BReadClick(Sender: TObject);
var
I:SmallInt;
F:TFileStream;
Inf:TUpdateInf;
begin
F:=TFileStream.Create('C:\1.txt',FmOpenRead);
F.ReadBuffer(Inf,SizeOf(TUpdateInf));
F.Free;

For i:=0 To 9 do
    Begin
    ShowMessage(Inf.FName[i]);
    End;

end;
Ответить с цитированием
  #2  
Старый 28.09.2009, 14:26
ComputerMonster ComputerMonster вне форума
Заблокирован
 
Регистрация: 28.09.2009
Сообщения: 6
Репутация: 10
Радость

F.WriteBuffer(^inf,sizeof(UpdateInf));
пропустили ^.

У меня вот так вот программа работает.

F.ReadBuffer(^inf,sizeof(UpdateInf));
Ответить с цитированием
  #3  
Старый 28.09.2009, 14:31
Scooter Scooter вне форума
Прохожий
 
Регистрация: 02.07.2007
Сообщения: 18
Репутация: 10
По умолчанию

Понял что проблема в массивах описанного типа... Ну почему так делать нельзя и как можно не пойму...
Ответить с цитированием
  #4  
Старый 28.09.2009, 14:34
ComputerMonster ComputerMonster вне форума
Заблокирован
 
Регистрация: 28.09.2009
Сообщения: 6
Репутация: 10
Счастье

Borland всегда что-то неправильно сама делает. И реализация возможностей, к сожалению у Borland отстает на десятки лет.

Например поддержка GDI+ была уже в Microsoft Visual Studio 2003.

А даже в Borland Delphi 2009 нет такой возможности!

Покажите лог компилятора!
Ответить с цитированием
  #5  
Старый 28.09.2009, 14:40
Scooter Scooter вне форума
Прохожий
 
Регистрация: 02.07.2007
Сообщения: 18
Репутация: 10
По умолчанию

ComputerMonster логи компилятора пустые если я правильно понял про какие вы логи спрашиваете, компилируеться все на ура а вот работать не хочет...

P.S: Как просматреть логи?
Ответить с цитированием
  #6  
Старый 28.09.2009, 14:44
ComputerMonster ComputerMonster вне форума
Заблокирован
 
Регистрация: 28.09.2009
Сообщения: 6
Репутация: 10
Радость

Они где внизу в компиляторе. Ладно.

Пришлите саму программу мне на личный e-mail.

Я протестирую её и скажу Вам.

Личный e-mail вы узнаете, нажав на ссылку ComputerMonster. Появится всплывающее меню, и пишите на e-mail. Вложение в письмо сделайте.

Вложение - это прикрепление файла к письму. Вложите программу EXE, т.е. сам исполняемый файл.
Ответить с цитированием
  #7  
Старый 28.09.2009, 14:53
Scooter Scooter вне форума
Прохожий
 
Регистрация: 02.07.2007
Сообщения: 18
Репутация: 10
По умолчанию

ComputerMonster да я про эти логи и говорил, подумал может еще какие есть )))... Спасибо за подробное объяснение про почту и вложения... ну я уж не такой noob ... Щас вышлю вместе с исходниками...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:37.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025