var
astr: string;
sList: TStrings;
path: string;
begin
sList := TStringList.Create;
path :='E:\servercs\openbrake_machine.txt';
try
if not DirectoryExists(ExtractFilePath(path)) then
begin
ForceDirectories(ExtractFilePath(path));
end;
if FileExists(path) then
begin
sList.LoadFromFile(path);
end;
sList.Add('1'+','+'川a11111');//#13#10
sList.SaveToFile(path);
finally
sList.Free;
end;
astr: string;
sList: TStrings;
path: string;
begin
sList := TStringList.Create;
path :='E:\servercs\openbrake_machine.txt';
try
if not DirectoryExists(ExtractFilePath(path)) then
begin
ForceDirectories(ExtractFilePath(path));
end;
if FileExists(path) then
begin
sList.LoadFromFile(path);
end;
sList.Add('1'+','+'川a11111');//#13#10
sList.SaveToFile(path);
finally
sList.Free;
end;