A simple program with a weird bug.

[zoimutante]

I have a simple program, with twos tedits, edit1 and edit2 ok ?
a var declared as string
and a simple code on edit1

procedure TForm1.Edit1Change(Sender: TObject);
begin
  name:=(Edit1.Text);
  Edit2.Text:=name;
end;   

I wish to get the text in tedit1 and pass it to a variable  name and change the text of the edit2 to the content in the variable name ok ?

the problem is that if a use a space on the text in edit1 I get a runtime error

[Jurassic Pork]

hello,
don't use name as variable , in your code , name is the property name of the TForm1 component. 
For example , you can do :

Code: [Select]

procedure TForm1.Edit1Change(Sender: TObject);
var myname : string;
begin
   myname:=(Edit1.Text);
  Edit2.Text:= myname;
end; and why you use a variable ? you use the variable in an another place in your program ?you can do :

Code: [Select]

procedure TForm1.Edit1Change(Sender: TObject);
var myname : string;
begin
  Edit2.Text:= Edit1.Text;
end;

[jc99]

LOL, You are using the "Name" as the name of the variable which is also a property of the Form. namely the Name of the Form.
Try to rename the Variable to e.G: MyName, EnteredName or set the scope:
e.G:

Code: [Select]

<unitname>.name := ...


[zoimutante]

Thank you both Jurassic Pork and JC99

A guy in the irc channel named x86iac point me the exact same mistake, thank you 3

[FPnewbie]

I am trying to set a var mystring:=Edit1Text.
When I try to use the following:

procedure TForm1.Edit1Text (Sender: TObject);

var mystring: string;

   mystring:=Edit1text;


I get the procedure line hilited and the error "Method identifier expected". What am I not understanding?

[derek.john.evans]

Edit1Text is a method. Not a string. You need:

Code: [Select]

mystring := Edit1.Text
Note: The dot.

[jc99]

First read  http://wiki.lazarus.freepascal.org/Lazarus_Faq#What_is_the_correct_way_to_ask_questions_in_the_forum.3F
Then put you Code in [ Code ]-tags
So it looks like:

Code: [Select]

procedure TForm1.Edit1Text (Sender: TObject);

var mystring: string;

   mystring:=Edit1text;
besides begin and end is missing, you named your method Edit1Text.
Then you try to assign this to a string, which is not possible.

Code: [Select]

procedure TForm1.Edit1Text (Sender: TObject);
var mystring: string;
begin
   mystring:=Edit1.text; // The dot was missing (maybe)
   //...
end;
Then you have valid code ...