[PaHaNjkee]

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

Код:

1 2 3

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

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

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

[PaHaNjkee]

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

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

Код:

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

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

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

Код:

1 2 3 4 5 6

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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+ <font color="Red">*</font>'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]

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