Почему в предоставленном коде:
Работает сохранения через: SLOut.SaveToFile(new_name);
И не работает через: writeln(Fin2, S);
Задача: Нужно что бы код работал через writeln(Fin2, S);
Var
Fin, Fin2: TextFile;
I, First: Integer;
SLInS, S: String;
SLIn, SLOut: TStringList;
Dictionary: TDictionary<String, Integer>;
Begin
// Тут открываю файл через
AssignFile(Fin, OpenDialog1.FileName);
reset(Fin);
// Тут сохраняю файл
AssignFile(Fin2, ExtractFileDir(OpenDialog1.FileName) + '\SAve.txt');
rewrite(Fin2);
Dictionary := TDictionary<String>.Create;
SLOut := TStringList.Create;
SLIn := TStringList.Create;
while not EOF(Fin) do
begin
readln(Fin, S);
SLIn.Add(S); { while }
end;
SLIn.Delimiter := '=';
SLIn.DelimitedText := SLIn.Text;
For I := 0 to SLIn.Count - 1 do
Begin
SLInS := SLIn.Strings[I];
if Pos('>', SLInS) <> 0 Then
delete(SLInS, 1, Pos('>', SLInS));
If Dictionary.ContainsKey(SLInS) = true then
Dictionary[SLInS] := Dictionary[SLInS] + 2
Else
Dictionary.Add(SLInS, 2);
End;
for S in Dictionary.Keys do
if Dictionary[S] > 1 then
SLOut.Add(S + ' - ' + IntToStr(Dictionary[S]));
SLOut.CustomSort(MySort);
end;
writeln(Fin2, SLOut.Text);
Dictionary.Free;
SLIn.Free;
SLOut.Free;
CloseFile(Fin);
CloseFile(Fin2);
SLOut.SaveToFile('save.txt');
?