OpenDialog

[Fahman]

2 вопроса.

1 - Как через OpenDialog выбрать выбрать любое количество txt файлов и соедить их в 1, после этого вызвать SaveDialog и сохранить готовый txt.
2 - Как через OpenDialog выбрать txt файл и заменить там текст из edit1 на edit2

[doktor255]

Сообщение от Fahman

1 - Как через OpenDialog выбрать выбрать любое количество txt файлов и соедить их в 1, после этого вызвать SaveDialog и сохранить готовый txt.

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
TSIn, TSOut: TStringList;
begin
if OpenDialog1.Execute then begin
  OpenDialog1.Options := [ofAllowMultiSelect]; // включение мультивыбора
  SaveDialog1.DefaultExt := 'txt'; // расширение по умолчанию. Варьируй
  TSIn := TstringList.Create;
  TSOut := TstringList.Create;
  for i := 0 to OpenDialog1.Files.Count - 1 do
    begin
      TSin.LoadFromFile(OpenDialog1.Files[i]);
      TSOut.Text := TSOut.Text + TSIn.Text;
    end;
  if SaveDialog1.Execute then TSOut.SaveToFile(SaveDialog1.FileName);
  TSIn.Free;
  TSOut.Free;
  end;
end;

Сообщение от Fahman

2 - Как через OpenDialog выбрать txt файл и заменить там текст из edit1 на edit2

Не совсем точно поставлена задача. Какой метод замены? Построчно, или полная замена? Если полная то так

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
TS: TStringList;
begin
if OpenDialog1.Execute then begin
  TS := TStringList.Create;
  TS.LoadFromFile(OpenDialog1.FileName);
  TS.Text := AnsiReplaceStr(TS.Text, Edit1.Text, Edit2.Text); // меняем все вхождения текста как в Edit1 на текст из Edit2
  if SaveDialog1.Execute then begin
    SaveDialog1.DefaultExt := 'txt';
    TS.SaveToFile(SaveDialog1.FileName);
  end;
  TS.Free;
end;
end;

Если построчно то в цикле проверь и замени так

for i := 0 to TS.Count -1 do
  if TS[i] = Edit1.Text then TS[i] := Edit2.Text;

[Serge_Bliznykov]

небольшое уточнение!

if OpenDialog1.Execute then begin
  OpenDialog1.Options := [ofAllowMultiSelect]; // включение мультивыбора

очевидно, что включить возможность мультивыбора нужно ДО Execute
да и для OpenDialog1/SaveDialog1 я бы фильтрацию по расширению txt тоже включил.

  OpenDialog1.Filter := 'Text files | *.txt';
  SaveDialog1.Filter := 'Text files | *.txt';

[doktor255]

с Execute согласен, немного перепутал последовательность, хотел все операции под Begin подвести. Мультивыбор можно (да и наверное нужно) включить в объект-инспекторе. Ну а по фильтрам неизвестно с какими файлами планирует работать человек, поэтому в OpenDialog я бы вообще не ставил фильтр, а в SaveDialog выставлял согласно расширению открытых файлов. Но это уже тонкости разработки конкретного приложения.