Не записывает в переменную

[Пепел Феникса]

тогда вам подойдет TextFile/Read/Write/Readln/Writeln

[Utkin]

Так и не понял, почему Бегемоту СтрингЛисты не нравятся...

[W0LF]

Используй TStringList и не морочи се одно место). На мой взгляд нет видимой разницы между сохранением и чтением паскалем и через стринглист

[Utkin]

Есть разница - со стринглистами мороки меньше.

[beemoto]

Utkin, мож я чегото непонимаю, но как работать со стринглистами?

[Utkin]

Создаешь объект класса стринглист
Юзаешь данные (читаешь с диска, обрабатываешь или записываешь на диск)
Разрушаешь объект

[Пепел Феникса]

var SL:TStringList; -задаем переменную.
SL:=TStringList.Create; -создаем лист.
SL.LoadFromFile(<имя файла>); - грузим из файла.
SL.Add(<строка>); -добавляем строку
SL[i] - читаем строку i
SL.Delete(i) - удаляем строку i
SL.SaveToFile(<имя файла>); - сохраняем в файл.
SL.Free; - уничтожаем обьект

это минимум...там есть еще вещи.

[Serge_Bliznykov]

вот пример из первого поста, доработанный "напильником":

var
  MyFile : file;
  s    : string;
  LenS : Cardinal;
begin
  assignFile(MyFile, 'sex.dat');
  ReWrite(MyFile,1);
  {для записи}
  WriteLn('size of Cardinal = ', sizeof(LenS));
  s := 'Seventy';
  LenS := length(s);

  // т.е. сначала запишем длину строки (4 байта)
  Blockwrite(MyFile,LenS,sizeof(LenS));

  // теперь пишем содержимое строки
  //    (обратите внимание, важно! указываем с 1-го байта!)
  Blockwrite(MyFile,s[1],LenS);
  CloseFile(MyFile);

  // обнулим строчку, чтобы показать, что там ничего не осталось!
  LenS := 0;
  s := 'xxxxxxxxxxxxxxxxxx';
  s := '';

  {для чтения}
  reset(MyFile,1);
  BlockRead(MyFile, LenS, sizeof(LenS));
  SetLength(s, LenS);
  BlockRead(MyFile, s[1], LenS);
  CloseFile(MyFile);
  WriteLn('Read string = ',s);
  Readln;
end.

[beemoto]

пишет ИО 105 т.е. файл неоткрыт для записи...

[beemoto]

Сообщение от Пепел Феникса

var SL:TStringList; -задаем переменную.
SL:=TStringList.Create; -создаем лист.
SL.LoadFromFile(<имя файла>); - грузим из файла.
SL.Add(<строка>); -добавляем строку
SL[i] - читаем строку i
SL.Delete(i) - удаляем строку i
SL.SaveToFile(<имя файла>); - сохраняем в файл.
SL.Free; - уничтожаем обьект

это минимум...там есть еще вещи.

это просто сохраняети читает, пользватель сам даже может прочитать содержимое открыв файл блокнотом, в том то и дело мне надо чтоб юзверь немог прочитать неслова...