Wątek przeniesiony 2014-03-09 17:26 z Delphi i Pascal przez furious programming.

Wczytywanie współrzędnych z pliku tekstowego

0

Witam!

Mam pewien problem z odczytywaniem współrzędnych z pliku tekstowego. Plik wygląda w następujący sposób

X:234 Y:235
X:235 Y:266
X:272 Y:347
X:835 Y:263
itp.

W tym celu napisałem taki oto kod:

procedure TForm1.LoadClick(Sender: TObject);
var
FileHandle : System.Text;
Temp : String;
X,Y : integer;
begin
  AssignFile(FileHandle,DataDir+'Cords.txt');
  Reset(FileHandle);

  ListBox1.Clear();
  Image1.Picture:=nil;
  Image1.Picture.LoadFromFile(DataDir + 'DoTa_minimap_24bmp.bmp');

  while not EOF(FileHandle) do
  begin
    ReadLn(FileHandle,Temp);
    ListBox1.Items.Add(Temp);

**TUTAJ ZCZYTYWANIE POSZCZEGÓLNYCH WSPÓŁRZĘDNYCH I PODSTAWIANIE DO ZMIENNYCH**

    {
    Image1.Canvas.Brush.Color:=clRed;
    Image1.Canvas.Brush.Style:=bsSolid;
    Image1.Canvas.Ellipse(X-CircleSize,Y-CircleSize,X+CircleSize,Y+CircleSize);
    }
  end;



  CloseFile(FileHandle);
end;

Problem polega na tym w jaki sposób mam znaleźć poszczególne liczby w tym ciągu. Muszę uwzględnić też, że liczby te będą mieć różne długości. Na końcu chciałbym podstawić to wszystko do odpowiednich zmiennych X i Y i pokazać na canvasie. Kombinowałem już z różnymi funkcjami i niestety nie wyszło.

1
var i,X,Y:Integer;
var ch:Char;
begin
  for i:=1 to 4 do // dla piku eof()
  begin
    ReadLn(ch,ch,X,ch,ch,ch,Y);
    WriteLn(X,' ',Y);
  end;
end.

http://ideone.com/5wBrZm

1 użytkowników online, w tym zalogowanych: 0, gości: 1