volshba
Сообщений: 3
Оценки: 0
Присоединился: 2009-07-02 17:22:48.100000
|
здравствуйте. есть такой код:
_List: TStringList;
...
procedure Tparser.Button1Click(Sender: TObject);
var
Index: Integer;
_Temp: TStringList;
begin
if Not Assigned(List) then begin
Application.MessageBox('!!!','',MB_Ok);
exit;
end;
_Temp:= TStringList.Create();
if Logic(List.GetText)=False then
_Temp.Add('данные не обнаружены')
else
for Index:= 0 to uslovie.Count - 1 do
begin
if (uslovie[Index] <> '') and (_Temp.IndexOf(uslovie[Index]) = -1) then
_Temp.AddStrings(uslovie)
end;
try
begin
_Temp.SaveToFile('result.txt');
end;
finally
_Temp.Free();
end;
end;
здесь открываем несколько файлов - проводим действие над ними и автоматом результат всех файлов сохраняем в один 'result.txt'. необходимо сделать сохранение результата каждого файла в отдельный файл, т.е. открываем: 1.txt, 2.txt, а сохраняем в 1_result.txt и 2_result.txt. возможно ли так?
|