Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 22, средняя оценка - 4.64
Reedberg
0 / 0 / 0
Регистрация: 29.05.2011
Сообщений: 7
#1

нарисовать точки по координатам - Delphi

29.05.2011, 15:34. Просмотров 2978. Ответов 5
Метки нет (Все метки)

Программирую на Delphi 7.
Есть dat файл с координатами 10 точек в таком виде:

44 65
95 45
...

Их нужно нарисовать.

Как произвести перевод каретки на следующую строку? Я смог нарисовать первую точку по её координатам, для этого я создал на форме объект PaintBox и в методе OnPaint добавил следующий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
 
  f:TFileStream;
  buf: array[0..2] of char;
  ch,ch1:Integer;
  str,str1:String;
  
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
   f:=TFileStream.Create('c:\cities.dat', fmOpenReadWrite);
   f.Read(buf,2);
   str:=buf;
   ch:=StrToInt(str);
   f.Seek(1,SoFromCurrent);
   f.Read(buf,2);
   str1:=buf;
   ch1:=StrToInt(str);
   PaintBox1.Canvas.Pixels[ch,ch1]:= clBlack;
end;
Таким образом рисуется первая точка, как перейти к следующей строке, прочитать её содержимое и нарисовать следующую точку?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2011, 15:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос нарисовать точки по координатам (Delphi):

Нарисовать треугольник по координатам вершин
здравствуйте помогите пожалуйста нужно нарисовать треугольник по координатам...

Определение точки по заданным координатам x и y
Добрый день, только начал изучать delpi, и в универе препод до конца ничего не...

По заданным координатам точки определить, попадает или нет точка М в заштрихованную область
По заданным координатам точки определить, попадает или нет точка М в...

По заданным координатам точки М(x,y) определить попадает или нет точка М в заштрихованную область
Составить алгоритм и написать программу для решения задачи согласно своему...

По заданным координатам точки определить, попадает или нет точка М в заштрихованную область
Составить алгоритм и написать программу для решения задачи согласно своему...

Нарисовать точки на компоненте Image в случайном порядке
Всем здравствуйте! Ребят, подскажите,пожалуйста,как вывести точки на компоненте...

5
igoriy
871 / 542 / 117
Регистрация: 24.11.2009
Сообщений: 1,329
29.05.2011, 15:51 #2
Все то же что ты делаешь только в цикле
0
Reedberg
0 / 0 / 0
Регистрация: 29.05.2011
Сообщений: 7
29.05.2011, 16:02  [ТС] #3
По какой переменной цикл? Как на следующую строку перейти? Можешь написать код?
0
igoriy
871 / 542 / 117
Регистрация: 24.11.2009
Сообщений: 1,329
29.05.2011, 16:07 #4
ну вообще мне вот так нравиться - по моему проще
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 list: Tstrings;
 i,x,y: integer;
 str: string;
begin
 list:= TStringlist.Create;
 list.LoadFromFile('1.dat');
 for I := 0 to List.Count - 1 do
  begin
    str:= List.Strings[i];
    x:= Strtoint(Copy(str,1,2));
    y:= Strtoint(Copy(str,4,2));
    Form1.Canvas.Pixels[x,y]:= clRed;
  end;
  list.Free;
end;
1
Reedberg
0 / 0 / 0
Регистрация: 29.05.2011
Сообщений: 7
29.05.2011, 17:18  [ТС] #5
Большое спасибо, все получилось что хотел!

Появился еще один вопрос: можно ли отметить на графике координаты каждой точки?
0
Arcor
4816 / 1817 / 380
Регистрация: 20.11.2009
Сообщений: 5,792
Записей в блоге: 1
29.05.2011, 17:53 #6
Цитата Сообщение от Reedberg Посмотреть сообщение
Большое спасибо, все получилось что хотел!

Появился еще один вопрос: можно ли отметить на графике координаты каждой точки?
в смысле отметить??? и так же точки рисуются, или написать названия координат?

ну тогда вот так можно

Delphi
1
  Canvas.TextOut(x,y,IntToStr(x)+'/'+IntToStr(y));
0
29.05.2011, 17:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2011, 17:53
Привет! Вот еще темы с решениями:

Как нарисовать точки, координаты которых в StringGrid, на Image?
Пожалуйста подскажите. Как нарисовать точки, координаты которых в StringGrid,...

Как нарисовать прямую с одной точки ко второй точке(после запуска программы)
Как нарисовать прямую с одной точки ко второй точке(в запущенной программе),...

Построить из данной точки закрашенную окружность с радиусом, равным расстоянию до ближайшей точки
Даны точки. Подсчитать среднее значение координат х и у и соединить полученую...

Найти номер точки из множества В, наиболее близкой от точки А
Дана точка А и множество В из N точек. Найти номер точки из множества В,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru