Forum: Sonstige Fragen zu Delphi
Delphi
by Die Muhkuh,
30. Mär 2006
Hi,
hast du auch mal überprüft, ob deine Images auch wirklich bei 0 anfangen? Ich hab gerade mal eins auf eine Form gesetzt und der Name war Image1.
Forum: Sonstige Fragen zu Delphi
Delphi
by Die Muhkuh,
30. Mär 2006
Hmm, dann kommt der Fehler bei dem If-Statement.
Hast du per Debugger schonmal überprüft, ob Image wirklich <> nil ist?
:wall:
Ach mist. Man sollte halt doch nicht aus dem Kopf schreiben. So müsste es jetzt funktionieren.
procedure SaveImages;
var
Ini: TIniFile;
Forum: Sonstige Fragen zu Delphi
Delphi
by Die Muhkuh,
30. Mär 2006
Hallo Heike,
kannst du mal überprüfen, ob Image <> nil ist?
try
for I := 0 to 29 do // Das sind 30 Images
begin
Image := (FindComponent('Image' + IntToStr(I)) as TImage);
if Image = nil then
Forum: Sonstige Fragen zu Delphi
Delphi
by Die Muhkuh,
30. Mär 2006
Bitte,
alternativ könntest du noch sowas machen:
procedure SaveImage(Image: TImage);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create('<Pfad, wo gespeichert werden soll>');
Forum: Sonstige Fragen zu Delphi
Delphi
by Die Muhkuh,
30. Mär 2006
Hallo Heike,
wenn deine Images Image0..Image29 heißen, ist das sehr einfach:
Code falsch. Bitte weiter unten gucken
Ist jetzt aussem Kopf geschrieben, sollte aber funktionieren :)
Ich glaub, da war noch ein Fehler im Code *g*