Zitat von
Der Jan:
Vielleicht hilft dir das weiter (ungetestet)
Delphi-Quellcode:
type
TMap = array of double; //Feld von doubles
pTMap = ^TMap; //Zeiger auf eben jenes
TMaps = array of pTMap; //Feld von Zeigern
Geil, geht
Noch ein letztes. Eigentlich müßte doch die Konvertierung char -> double problemlos sein, oder? Aber leider:
Procedure TImgProc.UC2double(outmap : integer; img : PChar; pitch : Integer);
var
x,y : Integer;
line : PChar;
srcline: pTLayer;
src : pTLayer;
begin
if(pitch =-1) then pitch:=FWidth;
for y := 0 to FHeight do
begin
line := img + y*pitch;
srcline := FMap[outmap];
for x := 0 to FWidth do
begin
src := srcline;
Inc(src,x);
src^[x] := line[x]; // <-- Incompatible types: 'Double' and 'char'
end;
end;
end;
Häh?