Bilddateien auf Vorrat laden für spätere Darstellung in TBitmap

[jziersch]

Müsste es nicht
z:=1;

heissen innerhalb des Vergleichs?

Aber natürlich wäre ein Dictionary besser oder mit einer alten Delphi version eine TStringList mit objekten.

[mcmichael]

Zitat:

Müsste es nicht
z:=1;

heissen innerhalb des Vergleichs?

Danke für den Tipp!!!
mein :=0 war Quatsch, :=1 wäre auch falsch, aber :=i wäre es gewesen.
Und dann läuft auch (ein bißchen) was.

Beim Einlesen von jpg Dateien (trotz "uses jpeg") kommt nämlich die Meldung "Bitmap ist ungültig"
Das TImage liest jpg immer klaglos ein. Wie gehe ich denn da vor?

TObjectDictionary<string,TBitmap> kannte ich noch nicht, scheint aber einen Blick wert - Danke!

procedure preloadImage(fname:string);
var i,z:integer;
begin
if preload then
begin
//doubletten vermeiden
z:=0;
for i := 1 to icmax do
if icname[i]=fname then
begin
z:=i;
break;
end;
if z=0 then
begin
inc(icmax);
IC[icmax]:=TBitmap.Create;
IC[icmax].LoadFromFile(fname);
icname[icmax]:=fname;
end;
end;
end;


procedure showImage(t:TImage;fname:string);
var i,z:integer;
begin
if preload then
begin
z:=0;
for i := 1 to icmax do
if icname[i]=fname then
begin
z:=i;
break;
end;
if z>0 then
t.Picture.Bitmap.Assign(IC[z]);
end
else
begin
//kein preload - Direkt anzeigen
end;
end;

[mcmichael]

Problem gelöst, auch jpgs laufen jetzt.
Vielen Dank für die Lösung der Gehirnbremse...

Delphi-Quellcode:

procedure preloadImage(fname:string);
var i,z:integer;
begin
if preload then
  begin
  //doubletten vermeiden
  z:=0;
  for i := 1 to icmax do
    if icname[i]=fname then
      begin
      z:=i;
      break;
      end;
  if z=0 then
    begin
    inc(icmax);
    with TPicture.Create do
      try
        IC[icmax]:=TBitmap.Create;
        LoadFromFile(fname);
        IC[icmax].Assign(Graphic);
        icname[icmax]:=fname;
      finally
        Free;
      end;
    icname[icmax]:=fname;
    end;
  end;
end;

[haentschman]

Moin...

Zitat:

Problem gelöst

...kann ich mir nicht vorstellen...du hast immer noch das with drin.

[Frickler]

Zitat von haentschman:

Moin...

Zitat:

Problem gelöst

...kann ich mir nicht vorstellen...du hast immer noch das with drin.

Jetzt wirds off topic...

Um with adäquat ablösen zu können, braucht man m.E. zwingend inline-Variablen. with verkürzt ja nicht nur den Ausdruck, sondern begrenzt auch den Scope. Eine prozedurglobale Variable macht das eben nicht.

Statt mit "with"

Delphi-Quellcode:

with TBla.Create, TControl(Controls[i]) do begin
  property1 := 1;
  property2 := Left;
end

schreibt man mit Inline-Variablen

Delphi-Quellcode:

begin
  var x := TBla.Create; var y := TControl(Controls[i]);
  x.property1 := 1;
  x.property2 := y.Left;
end

...und x sowie y gelten nur hier, nicht 10 Zeilen davor und nicht 20 Zeilen dahinter.