Показать сообщение отдельно
  #4  
Старый 31.12.2010, 17:18
Аватар для PaHaNjkee
PaHaNjkee PaHaNjkee вне форума
Начинающий
 
Регистрация: 13.10.2010
Адрес: Ульяновск
Сообщения: 115
Репутация: 10
По умолчанию

И сразу наткнулся на ошибку. Помогите плз Вот код:
Код:
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
__________________
Начинающий Delphi
Помогаю за Спасибо!
Ответить с цитированием