loader:= TRGBTextLoader.Create(Image1.Picture,bmp,Memo1,0);

loader.DrawPicture;

unit uData;

 

{$mode ObjFPC}{$H+}

 

interface

 

uses

  Classes, SysUtils, Graphics;

 

type

 

  { TRGBTextLoader }

 

  TRGBTextLoader = class(TStringList)

  private

    LBitmap: TBitmap;

  private

    procedure DrawPicture;

  public

    constructor Create(ABitmap: TBitmap); reintroduce;

    procedure LoadFromFile(const FileName: string); override;

  end;

 

implementation

 

uses LclType;

 

{ TRGBTextLoader }

 

procedure TRGBTextLoader.DrawPicture;

var

  pbgr:     PRGBTriple;

  idx:      int32 = 0;

  row, col: int32;

begin

  if Self.Count mod 3 <> 0

    then raise Exception.CreateFmt('Количество исходных строк (%d) некратно 3.', [Self.Count]);

 

  // вывод точек по ширине, пока не закончится высота

  LBitmap.Clear();

 

  for row:= 0 to LBitmap.Height - 1 do

    begin

      if idx >= Self.Count

        then break;

 

      pbgr:= LBitmap.ScanLine[row];

 

      for col:= 0 to LBitmap.Width - 1 do

        begin

          if idx >= Self.Count

            then break;

 

          pbgr^.rgbtRed:=   NativeInt(Self.Objects[idx + 0]) and $FF;

          pbgr^.rgbtGreen:= NativeInt(Self.Objects[idx + 1]) and $FF;

          pbgr^.rgbtBlue:=  NativeInt(Self.Objects[idx + 2]) and $FF;

          inc(pbgr);

          inc(idx, 3);

        end;

    end;

end;

 

constructor TRGBTextLoader.Create(ABitmap: TBitmap);

begin

  assert(assigned(ABitmap));

  inherited Create();

  LBitmap:= ABitmap;

end;

 

procedure TRGBTextLoader.LoadFromFile(const FileName: string);

var

  idx, b: int32;

begin

  inherited LoadFromFile(FileName);

 

  for idx:= 0 to Self.Count - 1 do

    begin

      if not TryStrToInt(Self[idx], b) or not (b in [0..255])

        then raise Exception.CreateFmt('Ошибка преобразования, строка %d.', [idx]);

 

      Objects[idx]:= TObject(NativeInt(b));

    end;

 

  Self.DrawPicture();

end;

 

end.

procedure TFormMain.FormCreate(Sender: TObject);

var

  loader: TRGBTextLoader;

  bmp: TBitmap;

begin

  bmp:= TBitmap.Create();

  try

    bmp.PixelFormat:= pf24bit;

    bmp.SetSize(Image.Width, Image.Height);

 

    loader:= TRGBTextLoader.Create(bmp);

    try

      try

        loader.LoadFromFile('data11.txt');

      except on e: Exception do

        Application.MessageBox('Ошибка', PChar(e.Message), MB_ICONSTOP or MB_OK);

      end;

    finally

      loader.Free();

    end;

 

    Image.Picture.Assign(bmp);

  finally

    bmp.Free();

  end;

end;

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TDynamicArrayOfIntegers = array of Integer;

  TForm1 = class(TForm)

    Memo1: TMemo;

    Image1: TImage;

    Memo2: TMemo;

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

function LoadFromFile(const fname: String; lines: TStrings): TDynamicArrayOfIntegers;

var

  I: Integer;

  FileDir:String;

begin

  FileDir:=fname;

  if FileExists(FileDir) then begin

    lines.LoadFromFile(FileDir);

    SetLength(Result, lines.Count);

    for i := 0 to lines.Count - 1 do

      Result[i] := StrToIntDef(lines[i], 0);

  end else Result := nil;

end;

 

procedure TForm1.FormShow(Sender: TObject);

var str:TDynamicArrayOfIntegers; y:Integer;

begin

  str:=LoadFromFile('data11.txt', Memo1.Lines);

 

  for y := 0 to High(str) do begin

      Memo2.Lines.Add(IntToStr(y mod 3));

  end;

end;

 

end.