Тема: Запис координат у файл і читання в масив
Набридло кожного разу, при запуску програми, задавати координати змінним, особливо, коли їх багато. Потрібно раз задати координати точок у файл(можливо й 20 шт.), які будуть щоразу завантажуватись при запуску програми. Можливо, я й дублюю якусь тему, та з того, що знайшов, не розібрався з масивами. Хотілося б розібратись на простому прикладі, раз і назавжди. Пробую на Delphi 7 чи Lazarus.
Так задаю координати курсора змінним Edit1.Text та Edit2.Text
procedure TForm1.Timer1Timer(Sender: TObject);
begin
GetCursorPos(Pt);
Label1.Caption:= 'X = ' + IntToStr(Pt.x);
Label2.Caption:= 'Y = ' + IntToStr(Pt.y);
if getasynckeystate($31)<>0 then //Присвоєння при натисканні "1"
begin
Edit1.Text := IntToStr(Pt.x);
Edit2.Text := IntToStr(Pt.y);
end;
end;
А далі, запис у файл по рядках і використання при запуску програми.