Greetings,
I am just starting with TMS Scripter.
I want to execute a script that adds lines to a TMemo (let's call it Memo1)
What are the steps that I need to execute in Delphi prior to loading the Scripter, and then assume the following script:
var
i : integer;
begin
for i := 0 to 99 do
begin
frmMain.memo1.Lines.Add('Hello');
end;
end;
i : integer;
begin
for i := 0 to 99 do
begin
frmMain.memo1.Lines.Add('Hello');
end;
end;
then assume that this is my delphi code:
procedure TfrmMain.Button1Click(Sender: TObject);
var
i : integer;
s1 : string;
var
i : integer;
s1 : string;
begin
Scripter.AddComponent(frmMain);
Scripter.SourceCode.Clear;
for i := 0 to fldmSQLSource.Lines.Count - 1 do
begin
s1 := fldmSQLSource.Lines;
Scripter.SourceCode.Add(s1);
end;
Scripter.Execute;
end;
Scripter.AddComponent(frmMain);
Scripter.SourceCode.Clear;
for i := 0 to fldmSQLSource.Lines.Count - 1 do
begin
s1 := fldmSQLSource.Lines;
Scripter.SourceCode.Add(s1);
end;
Scripter.Execute;
end;
What am I doing wrong?
Many thanks,
Paul Gregory