So, ich hab mích mal ein bisschen mit Dateien probiert, aber stehe vor folgendem Problem: Ich will aus einer Textdatei auslesen und immer wenn 1 dann weiß und wenn 0 dann schwarz. Die Datei sieht folgendermaßen aus
800
600
0000000000000...000000000111110101111111111111100000001111...00011
das erste sind die breite und höhe und dann kommen dei zeilen. Mein bisheriger code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| procedure TForm1.FormCreate(Sender: TObject);
var picwidth, picheight: integer;
wstr, hstr:string;
ch: char;
x,y:integer;
openfile: textfile;
begin
if Opendialog1.Execute then begin
AssignFile(openfile, Opendialog1.Filename);
Reset(openfile);
readln(openfile, wstr);
readln(openfile, hstr);
picwidth := StrToInt(wstr);
picheight := StrToInt(hstr);
Image1.Width := picwidth;
Image1.Height := picheight;
for x:=0 to picwidth-1 do
for y:=0 to picheight-1 do begin
read(openfile, ch);
case ch of
'0': Image1.Canvas.Pixels[x,y] := clblack;
'1': Image1.Canvas.Pixels[x,y] := clwhite;
end;
end;
CloseFile(openfile);
end;
end; |
geht aber nicht
