Objetivo e utilização:
Lê o registro anterior selecionado por IniciaCadeia do último ao primeiro. Os registros serão lidos na ordem inversa em que foram incluídos, os parâmetros são compatíveis com os do mesmos nome descritos acima.
Sintaxe:
LeAnteriorCadeia (char * arquivo, struct Itens * itens, char * área)
Parâmetros:
Exemplo em Delphi:
begin
Arquivo := ‘arq1’;
ret := LeRegistroAnteriorCadeia(@Arquivo,@reg);
if ret = -1 then
begin
{Início de Arquivo - EOF}
end
else if ret = 0 then
begin
{Achou registro para esta pesquisa}
end
else
begin
{Aqui ret é maior que 0 – Deu erro}
ret := ObtemMensagem(@msg);
ShowMessage(msg);
end;
end;
Exemplo em VB: