[hugolom]

Как сделать чтоб можно было создавать txt файл , в едите менять его название?

И чтоб можно добавлять текст туда
т.е. ввел в едите текст, ввел название файла и нажал кнопку, и потом в папке вместе с программой создался txt . ?

[T-dayne]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var f: textfile;
begin
AssignFile(f, edit1.text+'.txt');   //открываем файл для записи
ReWrite(f);
WriteLn(f, edit2.text);    //пишем строчку в него
CloseFile(f);            //закрываем
end;

[hugolom]

да, Это я понял уже)
Я вот так сделал,

Код:

var
  a: TStringList;
begin
  a:= TStringList.Create;
  a.Assign(Memo1.Lines);
  a.SaveToFile(ExtractFilePath(ParamStr(0))+ Edit1.Text+ '.txt');
  a.Free;

Теперь другой вопрос по теме,

как мне сделать так,
чтоб слова добавлялись галочкой(чекбоксом), т.к. уже есть готовые слова, их отметил и нажал общую кнопку и они появились вместе с текстом memo1 в txt ?

[Страдалецъ]

Зачем так сложно? Все несколько проще:

Код:

Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0))+ Edit1.Text+ '.txt')

[Страдалецъ]

Есть такой компонент TCheckListBox видимо вам он и нужен.
Работать с ним можно так:

Код:

Var i: Integer;
begin
 for i := 0 to CheckListBox1.Count - 1
 do if CheckListBox1.Checked[i]
    then Memo1.Lines.Add(CheckListBox1.Items[i])
end;

[hugolom]

Почти, мне надо было чтоб под Галочкой (при нажатие) ставился код, но это я уже решил.

Теперь еще вопрос,

как сделать чтоб вставлялось не одна строка , несколько, а то я незнаю как сделать это,..--

Memo1.Lines.Add('Текст в одну строку, но как сделать в несолько?')