Сохранить 1 строку в txt файл

[Kronos913]

Задача - сохранить 1 строку в файл
Вопрос: является ли этот код оптимальным?

procedure Write1StringToFile(str:string; FileName:string);
var
  t:TextFile;
begin
  AssignFile(t, FileName);
  ReWrite(t);
  Write(t, str);
  CloseFile(t);
end;

И небольшой объяснение, зачем это надо:
Хотя это и одна строка, но речь идет о тексте, который сохранен в 1 строку и в качестве переноса использует #13+#10
Поскольку другого способа вшить текст в программу я не нашел...

[Kronos913]

Имеет ли смысл такой код? Правильно ли будет обрабатываться неудачная попытка записи?

Function Write1StringToFile(const str:string; const FileName:string): boolean;
var
  t:TextFile;
begin
  try
   AssignFile(t, FileName);
   ReWrite(t);
   Write(t, str);
   CloseFile(t);
   result:=true;
  except
    result:=false;
  end; 
end;

[BDA]

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

Поскольку другого способа вшить текст в программу я не нашел...

Насколько большой текст? Можно в ресурсы положить. А проще разбить на кусочки по 255 символов (или меньшие для красоты):

const
  s: string = '255 символов' + '255 символов' + ...;

[Kronos913]

Можно в ресурсы положить.

Подробнее?

Ну я зашил кучу строк. Каждая примерно так описана

const
  s:string=(
            'Строка 1' +#13+#10+
            'Строка 2' +#13+#10+
            'Строка 3' +#13+#10+
            'Строка 4' +#13+#10)

[BDA]

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

Подробнее?

Это лучше погуглить.

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

Ну я зашил кучу строк.

И чем не устраивает?

[evg_m]

1. включение ресурса в программу

{$R res.rc}

2. файл res.rc

MYTXT RC_DATA file.txt

3. file.txt

все что угодно

4. использование

r:=TResourceStream.Create(HINSTANCE, 'MYTXT', 'RC_DATA' );
rr:=TStringList.Create;
rr.LoadFromStream(r);

https://programmersforum.ru/showthre...resourceStream