Спасибо, большое, всё работает, вот только один маленький баг, когда нажимаю на кнопку, в мемо становится две строки:
,,,4 shop
,1,2
Мне бы надо, что бы всё в одну строку шло, но одно но, когда второй раз нажимаю на кнопку, добавляется в одну строку..
Вот полный код:
Код:
form1.script.lines.add (form7.map.text+','+form7.x.text+','+form7.y.text+',4'+#9+'shop'+#9+form7.npc.text+#9+form7.sprite.text);
for i := 0 to Form9.ComponentCount - 1
do if Form9.Components[i].ClassType = TEdit
then if form1.Script.Text <> ''
then begin if TEdit(Form9.Components[i]).Text <> '' then
form1.Script.Text := form1.script.Text+','+TEdit(Form9.Components[i]).Text
end
else form1.Script.Text := TEdit(Form9.Components[i]).Text;
end;