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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #31  
Старый 29.06.2011, 22:39
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Также как и чтение. Сначала сохраняем заполненную структуру, затем информацию.
Ответить с цитированием
  #32  
Старый 29.06.2011, 22:52
us8ihj us8ihj вне форума
Прохожий
 
Регистрация: 18.06.2011
Сообщения: 19
Репутация: 10
По умолчанию

Что-то я не понимаю. У нас есть необработанная таблица, с 5-ю колонками, которая загружается из текстового файла, лежит где-то на сервере и этот файл переодисески обновляется. После получения данных, они обрабатываются, помещаются в таблицу. Первая кнопка - загрузка, вторая сортировка. Таблицы две. В певрую загружаем, а во второй отсортированная таблица. Сохраняем же первую (так как после загрузки мы можем нажать "Сортировать" и она первратиться во вторую).
Так вот. Полученные данные с сервера мы то и сохраняем, в виде табул. таблицы с 5-ю колонками. 1 колонка имеет вид целых чисел. вторая - "дд.мм.гггг чч:мм:сс", третья IP xxx.xxx.xxx.xxx (или вариации: xx.xx.xxx.xx), четвертая - логин (строка), пятая - параметр котрый может быть или =1 или =2.

То есть так выглядит структура. Она всегда постоянна и неизменна. Сохранятеся в таком же виде. И вот мне нужно проверить такого вида открываемый файл, или нет.
Ответить с цитированием
  #33  
Старый 29.06.2011, 23:01
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Сохраняешь структуру, к примеру с одним единственным полем ID = 'MyTable', затем свою таблицу. Чтение: открываем файл читаем из него кусок в структуру, если прочитанное = 'MyTable', значит это наш файл - можно читать таблицу, если нет возмущаемся.
Ответить с цитированием
  #34  
Старый 30.06.2011, 13:35
Janom Janom вне форума
Начинающий
 
Регистрация: 04.02.2011
Адрес: Москва
Сообщения: 148
Версия Delphi: 7
Репутация: 133
По умолчанию

Цитата:
Сообщение от us8ihj

Код:
const A: array [0..7] of byte = (7,8,10,11,13,14,15,16); //Номера символов которые должны быть цифрами
Да точно очипятка...))) Буду внимательнее)
скинешь пример конечного файла - помогу реализовать проверку содержимого))
Ответить с цитированием
  #35  
Старый 30.06.2011, 17:37
us8ihj us8ihj вне форума
Прохожий
 
Регистрация: 18.06.2011
Сообщения: 19
Репутация: 10
По умолчанию

Скинуть не могу (по крайнер мере исходник), так как ссылка с которой загружаются данные постоянна, и мало ли в каких целях будут использоваться айпи и логины юзеров. Нет я ничего не думаю, просто, безопасность). Разве что могу скинуть исходник без ссылки)

angvelem, мне из этого кусочка ничего не понятно. Я же не проф. программист, а чайник, который, в хороших условиях, очень быстро превращается в продвинутого пользователя)
Код:
type
  TMyStruct = record
    id : string[8]; // 'My_table'
    ...
    bla-bla-bla
    ...
  end;

var
  MyStruct : TMyStruct
Ответить с цитированием
  #36  
Старый 30.06.2011, 21:26
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Примерно так:
пишем
Код:
var
  F : File;
begin
  ...
  MyStruct.ID := 'My_Table';
  AssignFile(F, 'Мой файл.txt');
  Rewrite(F, 1);
  BlockWrite(F, MyStruct.ID, Length(MyStruct.ID));
  BlockWrite(F, Таблица результатов, Length(Таблица результатов))
  CloseFile(F);
  ...
end;
читаем
Код:
var
  F : File;
begin
  ...
  AssignFile(F, 'Мой файл.txt');
  Reset(F, 1);
  BlockRead(F, MyStruct.ID, Length(MyStruct.ID));
  if MyStruct.ID <> 'My_Table' then
  begin
     MessageDlg('Что за хрень?');
     Exit;
  end;
  BlockRead(F, Куда грузить, Сколько грузить);
  CloseFile(F);
  ...
end;
Чего понаписал? сам не пойму.

Последний раз редактировалось angvelem, 30.06.2011 в 21:29.
Ответить с цитированием
  #37  
Старый 30.06.2011, 22:13
us8ihj us8ihj вне форума
Прохожий
 
Регистрация: 18.06.2011
Сообщения: 19
Репутация: 10
По умолчанию

Местами понятно, но в целом смутно..) Ладно, попробую., может что получится. Вообще эта проверка не столь важна в программе, но ее реализация важна для меня как опыт, который в будущем пригодится )
Ответить с цитированием
  #38  
Старый 30.06.2011, 23:17
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Небольшой пример:
Вложения
Тип файла: rar project.rar (1.7 Кбайт, 2 просмотров)
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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