[hamik]

прошу помощи, скачал в интернете пример загрузки текста из файла, уже сутки ломаю голову как правильно записывать текст в файл из которого загружается, у меня либо совсем ничего либо непонятные иероглифы,перечитал кучу статей всеравно ничего не выходит
вот скрин скрипта, и исходник даю на всяк случай
http://pikucha.ru/i6Xsh
исходник
если посмотреть на скрин то там видно что чтение текста идет из файла C:\1.db сам файл отсутствует мои попытки создать его ни к чему не привели. начитавшись литературы я понял формат файла не играет роли, информация в базе должна быть в вот таком виде

Код:

country= 'Россия' sport= 'Футбол' person= 'Пупкин' kind= 'Золото'

в программе мы выбираем страну и нам должно загрузить строчку именно ту что мы выбрали

[Pyro]

file of TMedal - типизированный файл, инфы по ним много
assign, rewrite, write...

[Страдалецъ]

Писать в такой файл надо почти так-же, как и читать.

Код:

AssignFile(f, 'c:\1.db');
Rewrite(f);
Rec.Country := 'Италия';
Rec.Sport := 'Баблап';
Rec.Person := 'Казанова';
Rec.Kind := Gold;
Write(f, Rec);
CloseFile(f);

[hamik]

что то не получается серавно не загружает

[hamik]

спасибо разобрался
и еще по ходу дела вопрос, как заделать чтоб не затирало предыдущую запись а добавлялась новая строчка ?

[angvelem]

Не используй Rewrite.

[hamik]

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

Не используй Rewrite.

тоесть мне Rewrite(f); совсем удалить ?

[ChinYan]

Нет, Rewrite вам пересоздает файл с нуля, что бы писать в конец используйте Append(f), но сначала проверяйте, существует ли он у вас. Что-то вроде:

Код:

AssignFile(f,'c:\1.db');
if FileExists('c:\1.db') the
 Append(f)
else
 Rewrite('c:\1.db');
//Теперь записываете в файл с помощью Write(f,ваша запись);
CloseFile(f);

[hamik]

еще вопрос, вот по поводу этой части кода

Код:

country:string[20];
sport:string[20];
person:string[40];

максимальное значение которое можно поставить 255, я где то вычитал что цифра в скобках это количество символов, но как показала практика это не так, большие тексты грузит только концовку, причем если поставить

Код:

country:string[20];
sport:string[250];
person:string[250];

загружается только 75 символов, почему так я не понял, инфу тоже не нашел описывающее это

[angvelem]

Что то я не понял, где и что вычитал. "Нормальный" стринг может загрузить, если не путаю, 2Гб, а строка со скобками првращается в ShortString, максимальный объём такой строки 255 символов. Число в скобках - максимальное число загружаемых байт.

[icWasya]

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

загружается только 75 символов, почему так я не понял, инфу тоже не нашел описывающее это

Учти, что если в файл записал с вот такими папаметрами,

Код:

country:string[20];
sport:string[20];
person:string[40];

То с такими и надо считывать. А если записал файл с параметрами, указанными выше, то при считывании с такими

Код:

country:string[20];
sport:string[250];
person:string[250];

получится полная ерунда

[hamik]

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

Нет, Rewrite вам пересоздает файл с нуля, что бы писать в конец используйте Append(f), но сначала проверяйте, существует ли он у вас. Что-то вроде:

Код:

AssignFile(f,'c:\1.db');
if FileExists('c:\1.db') the
 Append(f)
else
 Rewrite('c:\1.db');
//Теперь записываете в файл с помощью Write(f,ваша запись);
CloseFile(f);

[Error] rdrec_.pas(58): Incompatible types
вот что у меня

Код:

AssignFile(f, 'c:\1.db');
  if FileExists('c:\1.db') then
   Append(f)
   else
     Rewrite('c:\1.db');
Rec.Country := Edit1.Text;
Rec.Sport := Memo1.Text;
Rec.Person := Memo2.Text;
CloseFile(f);

[Страдалецъ]

1. Интересно, а вот если файл уже есть. Вы куда без его открытия собираетесь писать? (AssignFile() - файл не открывает. У него другое назначение.)
2. Вот вы заполняете структуру Rec данными. А зачем собственно?

[ChinYan]

[Error] rdrec_.pas(58): Incompatible types

Ну и какая из этих строк 58я?

[v1s2222]

По идее вот эта:

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

Код:

Rewrite('c:\1.db');