Компилируется но не работае. Возможно проблема в "string"

[Pirotexnik]

Как объяснить программе, что текст выгружаемый из Edit6.Text содержит И буквы И цифры?
Прописал в var:
Edit6: string;

Нехочет

[Квэнди]

Код показывайте где ошибка.

[XuTpbIu]

Вообще-то Edit6 имеет тип TEdit. А Edit6.Text - это и есть по сути String. А в стринге содержатся и буквы и цифры

[Pirotexnik]

unit UPER;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    ComboBox1: TComboBox;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1:      TForm1;
  Msg:        string;
  temp:       PChar;
  Edit6:      string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
   Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);

begin
  ShowMessage('Создатель программы - Pirotexnik. Оффициальный сайт - makeserver.ru Все права - МОИ! =) Программа завершена 27.03.09 Посвящается моему -={VLB}=- клану, makeserver.ru, bow"у т.к. с него всё начиналось, Sinner"у, и всем друзьям!');
  ShowMessage(' Спасибо за помощь Виталику Белику. Он нyачил меня програмировать самому. Хочеш научится програмировать? Тебе сюда => http://programmersforum.ru')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    If ComboBox1.text='Internet' then
    temp:='sv_lan 0' else
    If ComboBox1.text='Lan' then
    temp:='sv_lan 1' else
      exit;

  ShellExecute(Handle, nil, pchar(Edit1.Text), pchar(' +rcon_password ' + Edit2.text + ' +port ' + Edit3.text + ' -console' + Edit5.Text + ' -game cstrike ' + ' +maxplayers ' + Edit6.Text + temp ), nil, SW_SHOW);
end;

end.

[S@fer]

вообще то edit6.text и есть string, что конкретно вы пытаетесь сделать?
А объявлять переменные с таким же названием как у объекта нельзя.

[S@fer]

после

-console' + Edit5.Text

пробел разве не должен стоять?

[Pirotexnik]

+maxplayers ' + Edit6.Text
В эдит6 есть определённое число. Но оно не грузится =(

Ну невкакую!

[S@fer]

убери из var

edit6: string

Поставь у temp тип string
и добавь Edit6.Text + '-'+temp
или Edit6.Text + '+'+temp

[S@fer]

т.е. в temp у тебя нет знака +/- с которого начинается команда

temp:='sv_lan 0'

а надо так

temp:='+sv_lan 0'

[Kotofff]

Одинаковые имена: Edit6 у тебя и string и TEdit