Mega Code Archive
Stringtofile
<![CDATA[
procedure TestSaveXMLStringToFile(xmlStr: String);
TestSaveXMLStringToFile(xmlString);
procedure TMainForm.TestSaveXMLStringToFile(xmlStr: String);
var
idx: Integer;
destFile: TextFile;
fileName: String;
exeFileName: String;
exeFilePath: String;
begin
exeFileName := Application.ExeName;
exeFilePath := ExtractFilePath(exeFileName);
fileName := exeFilePath + 'TestSave.xml';
AssignFile(destFile, fileName);
ReWrite(destFile);
for idx := 1 to Length(xmlStr) do
begin
Write(destFile, xmlStr[idx]);
end;
CloseFile(destFile);
end;
]]>