[PaHaNjkee]

Здраствуйте, помогите мне! Мне надо чтобы при нажатии на кнопку создавался файл в папке с программой quit.txt и в нем прописывалось типа это:

Код:

'This file was created...'+#13#10+
'Programm...'+edit1.text+'by NRG Team'+#13#10+
'End'

Помогите плз!

И с Наступающим новым годом

[PaHaNjkee]

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

Здраствуйте, помогите мне! Мне надо чтобы при нажатии на кнопку создавался файл в папке с программой quit.txt и в нем прописывалось типа это:

Код:

'This file was created...'+#13#10+
'Programm...'+edit1.text+'by NRG Team'+#13#10+
'End'

Помогите плз!

И с Наступающим новым годом

Или можно так?:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines:='This file was created...'+#13#10+
'Programm...'+edit1.text+'by NRG Team'+#13#10+
'End';
end;

Пишет: [Error] Unit1.pas(32): Incompatible types: 'TStrings' and 'String'

[PaHaNjkee]

Разобрался надо было не Memo1.Lines а Memo1.Lines.Text

[PaHaNjkee]

И сразу наткнулся на ошибку. Помогите плз Вот код:

Код:

procedure TForm1.N2Click(Sender: TObject);
begin
sMemo1.Lines.Text:='@echo off'+#13#10+
'cls'+#13#10+
'echo '+sedit1.Text+#13#10+
'echo '+sedit2.text+#13#10+
'title '+sedit4.text+#13#10+
':srcds'+#13#10+
':loop'+#13#10+
'echo (%date% %time%) srcds started.'+#13#10+
*'start /wait '+sEdit3.Text+' -console -game cstrike -tickrate '+inttostr(sSpinEdit1.Value)+' -port '+inttostr(sSpinEdit2.Value)+' +fps_max 600 +maxplayers '+inttostr(sSpinEdit3.Value)+' +map '+sEdit5.text+'+#13#10+
'goto srcds'+#13#10+
'echo (%date% %time%) WARNING: srcds closed or crashed, restarting.'+#13#10+
'goto loop';
sMemo1.Lines.SaveToFile('Start.bat');
ShowMessage('File was saved in a folder with the program!');
end;

Курсор стоит где * (Звездочки поправде нет!) Вот 2 ошибки:
[Error] Unit1.pas(94): Unterminated string
[Error] Unit1.pas(95): Missing operator or semicolon

[PaHaNjkee]

Опять разобрался...ну я слепой...