Tu código:
procedure TForm1.Button1Click(Sender: TObject);
procedure CargaListaAnimales;
begin
with TIniFile.Create ('C:\archivo.ini') do
try
ReadSection ('ANIMALES', ListBox1.Items);
finally
Free;
end;
end;
function ObtieneNombreAnimal (Numero: Integer) : String;
Código indentado:
Código:
procedure TForm1.Button1Click(Sender: TObject);
procedure CargaListaAnimales;
begin
with TIniFile.Create ('C:\archivo.ini') do
try
ReadSection ('ANIMALES', ListBox1.Items);
finally
Free;
end;
end;
function ObtieneNombreAnimal (Numero: Integer) : String;
Y aquí se ve más claro que falta el
end del procedimiento Button1Click, suponiendo, claro, que la intención realmente era la de poner un pprocedimiento anidado. Quizá más bien querías poner:
Código:
procedure CargaListaAnimales;
begin
with TIniFile.Create ('C:\archivo.ini') do
try
ReadSection ('ANIMALES', ListBox1.Items);
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CargaListaAnimales;
end;
// Saludos