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