[Danik007]

Всем привет!
Вот снова вопрос, только теперь не такой детский как раньше!
Как можно скопировать в текстовый файл кавычки?
Так должно быть в конечном результате:
Time:='07.01.2010';

Для копирования в файл использую:

Код:

procedure ExtractRes(ResType, ResName, ResNewName: String);
var
 Res: TResourceStream;
begin
 Res:= TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
 Res.SavetoFile(ResNewName);
 Res.Free;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
TimeG: String;
begin
TimeG:=formatdatetime('dd.mm.yyyy', datetimepicker1.Date);
ExtractRes('FILE', 'star', 'start.txt');
AssignFile(myFile, 'start.txt');
ReWrite(myFile);
WriteLn(myFile, 'Time:=',TimeG,';');
CloseFile(myFile);
end;

Такая запись НЕ работает!:

Код:

WriteLn(myFile, 'Time:='',TimeG,'';');

Это заключительная фаза разработки моей программы, помогите пожалуйста! Очень важно.

Я покопался и узнал что это можно сделать через таблицу Ansi, но не нашел номер символа - '.

[lmikle]

Угу, для одинарной кавычки надо ее указать 2 раза:

Код:

S := '''Time := dd.mm.yyy'''; // Вся строка будет в одинарных кавычках