Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Разрешить длинные строки (более 32 кб)

Такие строки (более 32 кб) удобны для работы с памятью, или с большими файлами. Следующая программа шифрует (правда очень плохо) текст почти неограниченного размера.


 implementation
 
 {$R *.DFM}
 {$LONGSTRINGS ON}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   F: TextFile;
   i: integer;
   s, buf: string;
 begin
   if OpenDialog1.Execute = false then
     Exit;
   AssignFile(F, OpenDialog1.FileName);
   Reset(F);
   while not EOF(F) do
   begin
     ReadLn(F, buf);
     s := s + buf;
   end;
   Rewrite(F);
   for i := 1 to Length(s) do
     s[i] := chr(ord(s[i]) + 1);
   for i := 1 to (Length(s) + 99) div 100 do
     WriteLn(F, copy(s, (i - 1) * 100, 100));
   CloseFile(F);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS