Delphi: TFileStream & TStringList, сохраняющий пустой текстовый файл

Question

Я студент колледжа (Великобритания), используя delphi для моего проекта A2 Computing. Я действительно не очень продвинутый, поэтому, пожалуйста, несите меня! Хорошо, поэтому я использую TStringList для сохранения содержимого TMemoBox в текстовый файл после его шифрования. Тем не менее, это было невозможно из-за того, что TStringList показывает показ линии после сообщения, которое испортило шифрование. Я последовал за статьей this, в которой используются как TStringList, так и TFIleStream, чтобы удалить это, но вместо того, чтобы дать мне полный текстовый файл, результат пуст. Пожалуйста, не могли бы вы сохранить данные, а не хранить их вообще? Большое спасибо. Вот часть моей процедуры.

var 
    EmailText : TStringList; 
    FileStream : TFileStream; 
begin 
    FileName := 'email1.txt'; 
    EmailText := TStringList.Create; 
    FileStream := TFileStream.Create(Filename, fmCreate);   

    EmailText.SaveToStream(FileStream, EmailText.Encoding); 
    FileStream.Size := FileStream.Size - Length(System.sLineBreak);   
    EmailText.Add(EmailMessageMemo.Text);        
    FileStream.Free; 
    EmailText.Free; 

Answer 1

EmailText := TStringList.Create; // new string list, empty 
FileStream := TFileStream.Create(Filename, fmCreate); 
EmailText.SaveToStream(FileStream, EmailText.Encoding); 

Таким образом, вы сохранили пустой список строк в файл. Таким образом, ваш файл, следовательно, пуст, потому что ваш список строк пуст.

Я предполагаю, что вы решили добавить содержимое в список строк, прежде чем вы его сохранили.

EmailText := TStringList.Create; 
EmailText.AddStrings(EmailMessageMemo.Lines); 
FileStream := TFileStream.Create(Filename, fmCreate); 
EmailText.SaveToStream(FileStream, EmailText.Encoding); 

Дополнительный список строк лишний раз. Вы можете сделать это следующим образом:

FileStream := TFileStream.Create(Filename, fmCreate); 
EmailMessageMemo.Lines.SaveToStream(FileStream, TEncoding.Default); 

Я также хотел бы отметить, как я сделал на многих других случаях, что шифрование работает на двоичном, а не текст. Конечно, если вы не пытались рассматривать текст как двоичный и наоборот, тогда вы не пострадали бы от блуждающего текста.