Zitat von
arbu man:
Delphi-Quellcode:
function findimage(fname:string):integer;
var i:integer;
begin
for i:=0 to olist.count-1 do begin
if (olist[i]as TImage).name=fname then result:=i;
end;
end;
Schick, und was ist, wenn der Name nicht vorhanden ist? Undefinierter Rückgabewert? Klasse - so baut man stabile Programme...
Der Compiler meckert nicht umsonst. Und warum bis zum Ende der Liste durchlaufen, wenn man das gesuchte schon gefunden hat? Wir sind ja nicht in C(++) wo return die Funkion auch gleich verlässt...
Delphi-Quellcode:
function findimage(fname:string):integer;
var
i: integer;
begin
Result := -1;
for i:=0 to Pred(olist.count) do
if ( olist[i] as TImage ).name = fname Then
Begin
result := i;
Break;
End;
end;