StringList(Delphi)

[CAMOBAP]

Проблема в том что не расшифровываются те строки в которых между словами есть пробелы.

[Serge_Bliznykov]

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

Проблема в том что не расшифровываются те строки в которых между словами есть пробелы.

Сочувствую.. перечитывайте мой предыдущий пост (особенно про непечатные символы) до просветления...
Нужна будет помощь - пишите...

[CAMOBAP]

Мм... просто ранее все отлично получалось ,были проблемы конечно, но все решалось. Какой другой вариант решения вы можете предложить?

[Serge_Bliznykov]

Какой другой вариант решения вы можете предложить?

да вариантов решения может быть масса!
так, навскидку, самые простые и практически безболезненные (изменение всего пары/другой строк исходного кода).
Заменить запись/чтение на запись/чтение через TFileStream

или перед записью переводить строку в набор печатных символов (например, через BASE64)

достаточно?...

p.s. про первый способ я Вам уже неоднократно рассказывал!

[CAMOBAP]

Как использовать Filestream вместе с OpenDialog?

[Serge_Bliznykov]

function XORStr(const S: string) : string;
const MKey : ShortString = 'Runtime DLL';
var sRezult : string;
  i, k : integer;
begin
  k := 1;
  sRezult := S;
  for i:=1 to Length(sRezult) do begin
    sRezult[i] := char(ord(sRezult[i]) xor ord(MKey[k]));
    inc(k);
    if k>length(MKey) then k := 1;
  end;
  XORStr := sRezult;
end;

procedure TForm2.Button1Click(Sender: TObject);
var tnz : String;
    LenTnz : integer;
    FRez : TFileStream;
begin
   if not (sMemo1.Text='') then
   begin
        tnz:=sMemo1.Text;
        if sSaveDialog1.Execute then begin
           FRez := TFileStream.Create(sSaveDialog1.FileName, fmCreate );
           try
             tnz :=  XORStr(tnz);
             LenTnz := Length(tnz);
             FRez.Write(LenTnz, SizeOf(Integer));
             FRez.Write(tnz[1], LenTnz);
           finally
             FreeAndNil(FRez);
             Application.MessageBox('Записано!',
                         'Info', MB_ICONINFORMATION or MB_OK);
           end;
        end;
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var tnz : String;
    LenTnz : integer;
    FRez : TFileStream;
begin
  if sOpenDialog1.Execute then begin
       FRez := TFileStream.Create(sOpenDialog1.FileName, fmOpenRead );
      try
       tnz := '';
       FRez.Read(LenTnz, SizeOf(Integer));
       if LenTnz>0 then begin
         SetLength(tnz, LenTnz);
         FRez.Read(tnz[1], LenTnz);
         tnz :=  XORStr(tnz);
       end;
       sMemo1.Text := tnz;
     finally
       FreeAndNil(FRez);
       Application.MessageBox('Прочитано!',
                   'Info', MB_ICONINFORMATION or MB_OK);
     end;
  end;

end;

Button1 - 'Зашифровать и сохранить'
Button2 - 'Прочитать и расшифровать'

[CAMOBAP]

Один вопрос при записи.
FRez.Write в скобках первой идет переменная которая записывается в файл,а после запятой что тогда?

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

её размер.
(или если быть точным то размер данных по указателю переданному в первом параметре(в первом параметре передается указатель на переменную, а не она сама))

[CAMOBAP]

Спасибо работает.Только проблема в другом. При повторном открытие программы и открытия файла опять появляются все те же ошибки

[CAMOBAP]

Короче не мой старый не ваш способ не подошел. Зато сделал по другому. И как ни странному все работает. Вот решение

if not sOpenDialog1.Execute
then
exit;
sl:=TStringList.Create;
sl.LoadFromFile(sOpenDialog1.Filename);
key:='1234';
for i := 0 to (length(sl.text) div length(key)) do
    longkey := longkey + key;
for i := 1 to length(sl.text) do
begin
    toto := chr((ord(sl.text[i]) xor ord(longkey[i])));
    res := res + toto;
end;