[hugolom]

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

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

[T-dayne]

Код:

1 2 3 4 5 6 7 8

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

[hugolom]

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

Код:

1 2 3 4 5 6 7

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

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

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

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

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

Код:

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

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

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

Код:

1 2 3 4 5 6

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('Текст в одну строку, но как сделать в несолько?')