Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Разрешить длинные строки (более 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;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011