Hi,
Also ich lade ein eigenes Bildformat in mein Programm rein. Bildformat ist übertrieben. Eigentlich wird in eine Textdatei nur die Größe und jeder einzelne Pixel reingeschrieben.
Das laden klappt wunderbar.
Delphi-Quellcode:
Progress.Position:= 0;
Progress.Max := Form.Height * Form.Width;
for J:= 0 to StrToInt(Laden.Strings[1]) do begin
Application.ProcessMessages;
for i:= 0 to StrToInt(Laden.Strings[0]) do begin
if Pos('cl',Laden.Strings[Zahl]) = 0 then begin
Form.Image321.Canvas.Pixels[i,j] := StringToColor('$00'+Laden.Strings[Zahl]);
end
else begin
Form.Image321.Canvas.Pixels[i,j] := StringToColor(Laden.Strings[Zahl]);
end;
inc(Zahl);
Progress.Position := Zahl;
end;
end;
Das funktioniert wie gesagt. Natürlich dauert das laden schon etwas länger als bei normalen Bildformaten weil meine Dateien auch um einiges größer sind
Wenn ich die Zeile
Progress.Position := Zahl;
weglasse dann ist das um EINIGES schneller. Nur wird halt der Ladefortschritt nicht angezeigt.. Und was bringt mir eine Anzeige vom Ladevorgang wenn dadurch das Laden min 3 mal so lange wenn nicht sogar noch länger dauert -.-
Kann man das nicht irgendwie schneller machen? Das kann doch nicht sein das diese eine Zuweisung sooo viel Zeit braucht..
PS: Sagt mir nicht das mein Bildformat Schwachsinn ist oder so, das weiß ich auch
aber ich habs immerhin erfunden
