Создание тхт файла на винчестере...

[misher]

Помогите пожалуйста с кодом, что бы при нажатию на button создавался(либо сохранялся) тхт файл с текстом что написан в Edit...
Ну либо статейку по этой теме подкинте...

[_-Re@l-_]

Procedure TForm1.Button1Click(Sender:TObject);
Var F:Text;
Begin
        AssignFile(F,'Директория');
        Rewrite(F);
        Write(F,Edit1.Text);
        CloseFile(F);
End;

Если, конечно, не ошибся нигде...

[Alex Cones]

Ошиблись. Паскаль такое может и прохавает, но в Дельфи эти функции переопределены.

var
 F : TextFile;
Begin
 AssignFile(F, 'Путь\Файл');
 Rewrite(F);
 WriteLn(F, Edit1.Text); // Можно и Write, тогда все будет записано в одну строку, 
                                      //с WriteLn будет дописан перевод каретки в конце строки.
 CloseFile(F);
End;

[Serge_Bliznykov]

с типом чуток напутали (с Паскалем)

Var F:TextFile;

а остальное похоже на правду.

___________________________________ __
ДОБАВЛЕНО
ну не успеешь ответить, как уже дают правильный ответ!

[Stilet]

но в Дельфи эти функции переопределены.

Не функции а тип текстового файла.
Не путай людей.

[misher]

спасибо всем,(маленький вопросик... какой компонент кинуть чтобы в нем печатать как эдит но по нажатию на enter он писал на новой строке?(Простите))

[_-Re@l-_]

RichEdit, Memo....

[DIgorevich]

Memo
RichEdit
Там и сохранение проще сделать

[misher]

а к ним полосу прокрутки приделать можно?(если да... то каким кодом?)

[artemavd]

а к ним полосу прокрутки приделать можно?(если да... то каким кодом?)

У RichEdit и Меmо есть свойство ScrollBars. Там можно указать какой скрол показывать.