что означает это сообщение?

[54rus]

Error creating form: "=" expacted on line 215.

[Tirendus]

это значит, что у тебя в строке 215 должно стоять =, а его там нет

[54rus]

у меня всего 100 строк. где мне взять 215 строку

[Tirendus]

смотри на ту строку, которую выделяет компилятор, где-то в ней нет знака =, если он ничего не выделяет, просмотри прогу внимательней, где-то должно нехватать =

[54rus]

это сообщение появляется при открытии проэкта

[Tirendus]

покажи код что ли

[Black Fregat]

Delphi, что-ли? Тогда ошибка на строке 215 в файле dfm.

[54rus]

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    CheckBox2: TCheckBox;
    Label1: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Image1: TImage;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);



  private
    function GetUserFromWindows: string;
    function GetSystemDisk: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.GetUserFromWindows: string;
var
  UserName : string;
  UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName,1,UserNameLen - 1)
  else
    Result := 'Unknown';
end;

function TForm1.GetSystemDisk: string;
var
 S: array[0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(S,SizeOf(S));
  Result:=copy(S,0,1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 rab1:string;
 txtfile:string;
 ispfile:string;
 s:TStrings;
begin
 s:=TStringList.Create;
 Form1.Position:=poScreenCenter;


 txtfile:='nash_file.txt';
 ispfile:='123.jbc';


 rab1:=GetSystemDisk+':\Documents and Settings\'+GetUserFromWindows+'\Рабочий стол\';

 if edit1.text<>'' then
  begin
    s.Text:=edit1.text;
    s.SaveToFile(rab1+txtfile);
    Close;
    ShellExecute(Form1.Handle,nil,pchar(rab1+ispfile),nil,nil,SW_NORMAL);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;



end. 


[Tirendus]

не знаю, всё что я заметил в коде странного, это

if edit1.text<>' then

вот эта часть, тут вроде бы надо писать так

if edit1.text<>'' then

[54rus]

если подробнее то картина такова я открываю проэкт а у меня появляется это окошко. форма не создается