Class question in Delphi

[tosh5457]

I've been learning delphi for 3 days now, so I'm just a begginer . anyway I've got a problem making a class ( : expected but = found ) here is the code:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
TWrite = class
private
word1 : string;
word2 : string;
word3 : string;
word4 : string;
public
constructor CreateVal(Aword1,Aword2,Aword3,Aword4 : string);
end;

constructor TWrite.CreateVal(Aword1,Aword2,Aword3,Aword4 : string);
begin
inherited create;
word1 := Aword1;
word2 := Aword2;
word3 := Aword3;
word4 := Aword4;
end;

When i try to run it it says "Expected ':' but '=' found." and it points to TWrite=class

I remember having this problem when making records, but that was because i forgot end;

Help me please

[WingedPanther]

I wonder if your "TForm1 = class(TForm)" is incorrect. I would think that should be "TForm1 : TForm;".

[tosh5457]

Originally Posted by WingedPanther

I wonder if your "TForm1 = class(TForm)" is incorrect. I would think that should be "TForm1 : TForm;".

Nope, it's the default when i create a new application. If i change it i get an error

[tosh5457]

i've found the solution already thanks anyway

[Meka][Meka]

an old thread but hey, im new ^__^, plus a help for other programmers or newbies that have the same problem ->

simple because the nested class is declared incorrectly...

example of nested class >

type
TSomeClass = class
public
	iSomeInt: Integer;
	type
	TNestedClass = class
	public
		function Method(): Boolean;
	end;
end;

and from the displayed code i dont see an ending

end.

-/Meka][Meka