Jump to content
Fórum Script Brasil
  • 0

Como Fazer Um Goto No Delphi?


Guest - eFelipe -

Question

Guest - eFelipe -

Caros amigos,

No clipper quando queríamos ir para um determinado registro bastava digitar go to (numerodoregistro).

Como fazer isso no delphi? Desejo dar um goto(numerodoregistro) e pronto!

Aguardo.

eFelipe.

Link to comment
Share on other sites

9 answers to this question

Recommended Posts

  • 0

Bem Companheiro existem pequenas diferenças no delphi e no clipper, bem o delphi como você já sabe usa object pascal, recomendo que para tirar suas duvidas da migraçao de linguagens estude uma apostila de pascal so para você tirar sua ideia, bem agora para ir a algum lugar eu aconselho a você se estiver no banco de dados a usar o locate tem um post que respondi a um tempo atras sobre o locate vou coloca o link dele para você ok

espero que te ajude

LOCATE - post feito por ednara

qualquer coisa mail-me

abraços Rafael Marciano

Link to comment
Share on other sites

  • 0
Guest - eFelipe -

Caro amigo,

Obrigado, mas não é o que eu desejo.

Sei realizar pesquisas tanto com o locate e arquivos de indices. O que quero mesmo é ir diretamente a um determinado registro. não quero pesquisa-lo. Quero dizer ao delphi "vá ao registro numero tal" (goto).

Isso é muito mais rapido e objetivo que as pesquisas.

A respeito do locate você disse as vantagens, porem a grande e imensa desvantagem dele é a demora.... Imagine uma busca utilizando o locate num bd com 500.000 registros....

O uso do locate não é recomendado nas pesquisas a não ser qeu o bd tenha 10 registros.

Poderia me ajudar com o goto?

Agradeco desde já!

Abrs,

eFelipe. smile.gif

Link to comment
Share on other sites

  • 0

Bem companheiro vou postar um exemplo de um programa que tem aqui é o seguinte existe um edit e quando você digita o codigo no edit, e digita no botao ai ele mostra os campos relacionados no banco de dados, espero que seja isto que esta procurando

abraços

// esta procedure dever ficar dentro de um button

// ou dentro de um bitbtn

// o edit chama f_chamado

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

     atender:='S';

     operacao:='editar';

     tabelas.tb_chamados.indexname:='i_chamado';

     if (tabelas.tb_chamados.findkey([trim(f_chamado.text)])) then

       begin

        f_chamado.text:=tabelas.tb_chamados.fieldbyname('chamado').asstring;

        f_usuario.text:=tabelas.tb_chamados.fieldbyname('usuario').asstring;

        f_setor.text:=tabelas.tb_chamados.fieldbyname('setor').asstring;

        f_datachamado.text:=tabelas.tb_chamados.fieldbyname('data_chamado').asstring;

        f_horachamado.text:=tabelas.tb_chamados.fieldbyname('hora_chamado').asstring;

        f_dataatendimento.text:=tabelas.tb_chamados.fieldbyname('data_atendimento').asstring;

        f_horaatendimento.text:=tabelas.tb_chamados.fieldbyname('hora_atendimento').asstring;

        f_atendente.text:=tabelas.tb_chamados.fieldbyname('atendente').asstring;

        f_titulo.text:=tabelas.tb_chamados.fieldbyname('titulo').asstring;

        f_memo1.text:=tabelas.tb_chamados.fieldbyname('memo1').asstring;

        f_memo2.text:=tabelas.tb_chamados.fieldbyname('memo2').asstring;

        f_natureza.text:=tabelas.tb_chamados.fieldbyname('nop').asstring;

        f_urgencia.text:=tabelas.tb_chamados.fieldbyname('nivel').asstring;

        f_consequencias.text:=tabelas.tb_chamados.fieldbyname('consequencias').asstring;

        f_problema.text:=tabelas.tb_chamados.fieldbyname('vezes').asstring;

        f_origem.text:=tabelas.tb_chamados.fieldbyname('origem').asstring;

        f_ocorre.text:=tabelas.tb_chamados.fieldbyname('momento').asstring;

       end;

end;

//espero que entenda qualquer coisa, mail-me outra coisa algumas variavels estao sendo usadas em outros lugares

Link to comment
Share on other sites

  • 0

Como fazer um goto no delphi

Tem exemplo no help do delphi

Exemplo:

label StartHere;
...
...
...
StartHere: Beep;
...
...
...
goto StartHere;
creates an infinite loop that calls the Beep procedure repeatedly. Aditionally, it is not possible to jump into or out of a try/finally or try/except statement. The goto statement is generally discouraged in structured programming. It is, however, sometimes used as a way of exiting from nested loops, as in the following example.
procedure FindFirstAnswer;
var X, Y, Z, Count: Integer;
label FoundAnAnswer;
begin
  Count := SomeConstant;
  for X := 1 to Count do
    for Y := 1 to Count do
      for Z := 1 to Count do
        if ... { some condition holds on X, Y, and Z } then
          goto FoundAnAnswer;

  ... {code to execute if no answer is found }
  Exit;

  FoundAnAnswer:

    ... { code to execute when an answer is found }
end;

abraço

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      651.9k
×
×
  • Create New...