Нарисовать карту Опции

[}0pa]

Проблема такова: В прикрепленном файле находятся файлы KRD-карты районов. Каждый из них содержит название района, координаты точек, макс. и мин. значения "х" и "у". Помогите вывести на экран хотя бы одну карту

Код

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y,h:real;
  I1,I2,J1,J2:integer;
  x1,x2,y1,y2:real;
implementation

{$R *.dfm}
{------------------------------------------------------------------------------}
function II(x:real):Integer;
begin
  II:=I1 + Trunc ((x-x1)*(I2-I1)/(x2-x1))
end;
{------------------------------------------------------------------------------}
function JJ(y:real):Integer;
begin
  JJ:=J1 + Trunc ((y-y1)*(J2-J1)/(y2-y1))
end;
{------------------------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1

end;

end.

[}0pa]

Sorry, сам разобрался...

Код

Function MyColor(c:integer):TColor;
begin
case c of
  0:MyColor:=clBlack;
  1:MyColor:=clBlue;
  2:MyColor:=clGreen;
  3:MyColor:=clLime;
  4:MyColor:=clRed;
  5:MyColor:=clSilver;
  6:MyColor:=clMaroon;
  7:MyColor:=clOlive;
  8:MyColor:=clNavy;
  9:MyColor:=clAqua;
  10:MyColor:=clYellow;
  11:MyColor:=clPurple;
  12:MyColor:=clTeal;
  13:MyColor:=clWhite;
end;
end;

Может, немного нерациорально, но тем не менее...
Тогда еще последний вопрос остается:
Кодировка - считывание из файла и вывод на экран русских букв без изменения самого файла...

Сообщение отредактировано: }0pa - 27.11.2006 14:43

[hiv]

Может, немного нерациорально, но тем не менее...

Не менее, надо делать так:

const MyColor:array[0..13] of TColor = (clBlack, clBlue, clGreen, clLime,
clRed, clSilver, clMaroon, clOlive, clNavy, clAqua, clYellow, clPurple, clTeal, clWhite);

Тогда еще последний вопрос остается:
Кодировка - считывание из файла и вывод на экран русских букв без изменения самого файла...

Это уж сам в инете найдешь - вещь распространенная. Но я бы просто все файлы данных перекодировал, чтоб не заниматься постоянной перекодировкой при их чтении, тем более что cp1251 стандартная кодировка windows с 1995 года.

ЗЫ: Можно заменить номер цвета в файле данных на сам цвет в формате RGB (красный синий голубой), а потом определяй цвет для каждого региона так Region[i].color:=RGB(r,g,b); Компоненты цвета r,b,b - байты (0..255).

Сообщение отредактировано: hiv - 27.11.2006 15:03