Всем привет!
Вот снова вопрос, только теперь не такой детский как раньше!
Как можно скопировать в текстовый файл кавычки?
Так должно быть в конечном результате:
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, но не нашел номер символа - '.