- procedure GrafikAusgabe(dname: String);
- var
- datei: file;
- x,y: integer;
- B: pointer;
- ip: ^Byte;
- b1,b2,b3: Byte;
- begin
- assignfile(datei,dname);
- reset(datei,sizeof(by));
- x := 0;
- y := -1;
- b := @by;
- while not eof(datei) do
- begin
- inc(y);
- if y > 400 then
- begin
- y := 0;
- inc(x);
- end;
- read(datei,b^);
- ip := b;
- b1 := byte(ip^);
- inc(ip);
- b2 := byte(ip^);
- inc(ip);
- b3 := byte(ip^);
- canvas.Pixels[x,y] := RGB(b1,b2,b3);
- end;
- closefile(datei);
- end;