Сохранение с тегами

[IpCod]

Здравствуйте! пишу программу ,осталось самое малое,а именно есть форма на которой есть 2 Tedit и кнопка сохранить. Объясню что не получаеться: в Edit1 вводим слово "TEST" в Edit2 вводим слово "как хорошо что сдесь мы сегодня собрались". Далее нажимаем на кнопку сохранить. Файл должен иметь название написанное в Edit1 и иметь расширение *.txt. при этом если открыть этот сохраненный файл он должен иметь вид
<какой то тег>TEST</какой то тег>
<какой то тег>как хорошо что сдесь мы сегодня собрались</какой то тег1>

PS. файл должен сохраняться в "папка с программой/test"

[Манжосов Денис :)]

Ставить курсор на первую строку вначале, вставлять строку тега, потом курсор в конец и вставлять тег. Ну где-то так:

var   
  s: TStringList;
begin
  s := TStringList.Create('Test.txt');
  s := '<first>' + Edit1.Text + '</first>'
  s.Free;
end;

[IpCod]

наверное вы не совсем поняли что я хочу((

нужно сделать все програмно! т.е. я нажал кнопку и пошел в папку туда куда сохранился данный докумен открыл его и мог с ним работать!

[Greblin]

2 Денис
У вас как бы малость несовместимость типов TStringList и String

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStringList;
begin
  s := TStringList.Create;
  s.Add('<first>' + Edit1.Text + '</first>');
  s.Add('<first>' + Edit2.Text + '</first>');
  s.SaveToFile(ExtractFilePath(Application.ExeName) + '/test/' + Edit1.Text + '.txt');
  s.Free;
end;

Только надо чтоб каталог уже существовал

[IpCod]

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

2 Денис
У вас как бы малость несовместимость типов TStringList и String

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStringList;
begin
  s := TStringList.Create;
  s.Add('<first>' + Edit1.Text + '</first>');
  s.Add('<first>' + Edit2.Text + '</first>');
  s.SaveToFile(ExtractFilePath(Application.ExeName) + '/test/' + Edit1.Text + '.txt');
  s.Free;
end;

Только надо чтоб каталог уже существовал

спасибо тебе огромное!держи +

[Kotofff]

наверное вы не совсем поняли что я хочу

Все правильно по твоему вопросу тебе сказал Денис. В противном случае тогда расскажи подробнее, что именно ты хочешь !

<какой то тег>TEST</какой то тег>
<какой то тег>как хорошо что сдесь мы сегодня собрались</какой то тег1>

В этом виде чтобы состоял весь файл ?
Который потом последовательно читать доставая из него поочередно сначала одну строку а потом другую и т.д. по файлу ? Если да - то тогда еще раз говорю, что Денис правильно сказал а Greblin поправил. И твоя задача состоит в том, чтобы просто сделать простой парсер для всего лишь 2-х тегов и текста который между ними ... Так ???
В этом случае перефразировать нужно первоначальный вопрос.

[uberchel]

Тоже вариант, проверяет есть ли директория TEST если нет то создаёт её

procedure TForm1.btn1Click(Sender: TObject);
var
  S: string;
  F: TextFile;
begin
  S:= ExtractFileDir(ParamStr(0)) + '\TEST';
  if not DirectoryExists(S) then CreateDir(S);

 try
  AssignFile(F,S + '\TEST.HTML');
  Rewrite(F);
  Writeln(F, '<title>'+ edt1.Text +'</title>');
  WriteLn(F,'<center><h1>'+ edt2.Text +'</h1></center>');
  WriteLn(F,'<p><marquee>'+ edt2.Text +'</marquee></p>');
  finally
  CloseFile(F);
 end;
end;

[Манжосов Денис :)]

Greblin, да, немного забылся.