Операции над массивами

[VinDiz]

Подскажите кодом пожалуйста как одномерный массив вида
232 323
343 565
356 676
чисел больше его надо сдвигать кнопкой на экране влево и эту фигуру другой уже кнопкой делать больше (фигура привязана к определенной координате). Заранее спасибо за внимание!

[VinDiz]

В делфи! забыл дописать

[Vanta11a]

Сразу же скажу, что вид массива - двумерный. Что за фигура? Откуда берутся числа, которые надо двигать?

[VinDiz]

числа берутся с файла 1.тхт с координат что в файле получаются три буквы
но координаты потом я поставлю!

[Vanta11a]

Ну взяты координаты 3х точек из файла. Что дальше то? Соединить их, после чего стрелками двигать получившуюся фигуру?

[VinDiz]

Вот код но тут считывается не массивом а просто выводит......надо добавить к коду кнопки

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
 var f:textfile;
 x,y:integer;
 begin
 assignfile (f, '1.txt');
 reset(f);
 while not eof(f) do
  begin
   while (not eof(f)) and (eoln(f)) do readln(f);
   if not eof(F) then
    begin
     readln(f,x,y);
     image1.Canvas.moveto(x,y)
    end;
   While (not eof(F)) and (not Eoln(f)) do
    begin
     ReadLn(f,x,y);
     image1.Canvas.lineto(x,y);
    end;
   end;
 CloseFile(f);
 end;
procedure TForm1.Button2Click(Sender: TObject);
begin
halt(0);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
image1.Picture:=nil;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VinDiz]

а это содержимое файла .тхт
126 65
126 52
48 52
48 192
127 192
127 114
62 114
62 65
126 65

114 130
62 130
62 181
113 181
113 130

240 75
165 75
165 194
256 194
256 126
187 126
240 126
240 75

180 88
180 113
215 113
215 88
180 88

180 140
180 176
220 176
220 140
180 140

288 66
288 192
309 192
356 81
356 190
377 190
377 65
352 65
307 170
307 66
288 66