Memo и ListBox

[coder_noob]

здрям! ребята помогите ! в унвере дали задание такого содержания:

на форму кинуть компонент memo, создать вторую форму кинуть компонент listbox т.е. в memo пишем любой текст например:

привет!
как дела?

при том когда мы открываем вторую форму в лист listbox добавляються данные из memo т.е. одна строчка в memo -одной строчке в лист бокс после того как данные добавленны нажимаем кнопку сохранить на второй форме и все должно сохраниться в txt файл следующего содержания:

<главный тег>
<тег1>привет!</тег1>
<имя>ИМПОРТ</имя></главный тег>
<главный тег>
<тег1>как дела?</тег1>
<имя>ИМПОРТ</имя></главныйтег>

если например в memo добавленно 5 строк то соответственно должно получиться

<главный тег>
<тег1>привет</тег1>
<имя>ИМПОРТ</имя></главный тег>
<главный тег>
<тег1>как дела?</тег1>
<имя>ИМПОРТ</имя></главныйтег>
<главный тег>
<тег1>еще строчка</тег1>
<имя>ИМПОРТ</имя></главныйтег>
<главный тег>
<тег1>еще строчка</тег1>
<имя>ИМПОРТ</имя></главныйтег>
<главный тег>
<тег1>еще строчка</тег1>
<имя>ИМПОРТ</имя></главныйтег>

ребята выручайте!

[apocalypce]

насчет листбокса не знаю, но например с edit вот так:

var
  s: TStringList;
begin
  s := TStringList.Create;
  s.Add('<главный тег><тег1>' + Edit1.Text + '<имя>ИМПОРТ</имя></тег1></главный тег>');
  s.Free;

[coder_noob]

мне кто нибудь поможет??граждане ответьте пожалуйста!!!!

[uberchel]

Ну во первых, вы пришли сюда без наработок, мыслей по этому поводу, и хотите чтобы вам написали тут просто так программу? , тогда вам в раздел Фриланс . А мы тут бесплатно программы не пишем, вот вам показали пример, разжевывайте и делитесь своими соображениями по этому поводу, не нормального описания не чего, какие теги ?

[856100]

Вот процедура сохранения (Коментировать не буду, если захотите, то сами разберетесь =))

procedure TForm1.Button1Click(Sender: TObject);
Var List:TStringList; I:Integer;
begin
List:=TStringList.Create;
List.Clear;
For I:=0 to Memo1.Lines.Count-1 do
 Begin
  List.Add('<главный тег>');
  List.Add('<тег1>'+Memo1.Lines.Strings[I]+'</тег1>');
  List.Add('<имя>ИМПОРТ</имя></главный тег>');
end;
List.SaveToFile('123.txt');
List.Free;
end;

[uberchel]

Вот пример:

[coder_noob]

ура ! спасибо всем тем кто мне помог на седьмом небе от счастья я конечно нуб в программирование да мне это и не надо такая запара в унвере поэтому решил к вам обратиться, на форуме вопрос написать и к счастью помогли!Эх не перевелись еще добрые люди на свете! еще раз спаибо да не просто спасибо а огромное спасибо!