Ir para conteúdo
Fórum Script Brasil

KeitaroSan

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    123

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por KeitaroSan

  1. Implemetação De Classe Em Arquivo Separado

    em C, C++

    Postado

    E aew povo,

    É o seguinte, to com problemas na implementação de classes em C++, não sei o que estou fazendo errado, eu crio um arquivo "header" de extensão h, onde defino toda a classe, e a implementação da classe, eu coloco em um arquivo de mesmo nome, porém com extensão cpp... o problema é quando uso o header que eu criei, ele fala que não acha a implementação dos metodos da classe... Será que estou fazendo algo errado??

    exemplo:

    class1.h

    #ifndef CLASS1_H
#define CLASS1_H

class class1
{
  private:
	int Membro1;
  public:
	class1(int Value);
	void SetMembro1(int Value);
};

#endif
    class1.cpp 
    #include "class1.h"

class1::class1(int Value)
{
  SetMembro(Value);
}

void class1::SetMembro(int Value)
{
  Membro1 = Value;
}
    e tento compilar(estou usando o DEV-CPP): main.cpp 
    #include "class1.h"

int main(int argc, char *argv[])
{
  class1 *c = new class1(10);
  return 0;
}
    Feito isso, consigo a mensagem: 
    [Linker error] main.cpp: undefined reference to 'class1::class1(int)'

  5. Gifanimada

    em Delphi, Kylix

    Postado

    Obs: Sem querer menosprezar o TGifImage, mas já tive problemas com ele por não conseguir animar vários gifs.

    Eu nunca usei ele nas minhas aplicações, só vi ele funcionando um vez numa aplicação, achei maneiro... =P

    Capaz do Jedi-VCL ter algum componente que rode Gif animada também, o set de componentes deles é beeeeeem grande... biggrin.gif

  6. Ajuda - (RESOLVIDO)

    em Delphi, Kylix

    Postado

    Tipo, como eu tow sem Access no momento, não posso te fazer um exemplo, mas quando eu testei, testei no Database Desktop e notei que ele era "Case Sensitive", ou seja, diferenciava letras maiusculas de minusculas... será que não está retornando nada por algum caso assim??

    Tipo, se não funcionar bem com o '*', tenta usar o '%'... quem sabe não funciona?

  7. Ajuda - (RESOLVIDO)

    em Delphi, Kylix

    Postado

    Bom, eu perguntei, pois quando eu trabalho com banco de dados, a sintaxe do SQL costuma mudar pra quem esta acostumado com a do BDE, geralmente eu utilizo Access tambem, mas eu uso componente de acesso pelo Jet, espero que isso não afete o a sintaxe do SQL...

    Eu faria a query de seleção da seguinte maneira:

    Query1.SQL.Text := 'SELECT * FROM tabela_desejada WHERE nome_do_campo LIKE '+#39+ var_substring + '*' +#39+'

    note que esse que eu pus logo apos o "var_substring" é um caracter curinga, entende?

    ou seja, ele vai mostrar todos os registros que começam com o texto que esta na var_substring e terminem com qualquer coisa...

    no Paradox o caracter curinga é o "%", por isso eu queria saber qual sintaxe de SQL usar...

    Bom, se der erro, posta o erro aqui, mas acho dificil, sempre uso assim e nunca obtenho erro...

    falows

  9. Apagar Os Dados E A Figura....

    em Delphi, Kylix

    Postado

    Bom, você pode ignorar a linha que atrinui o valor NIL pro picture do Image, afinal, o LoadFromFile vai se encarregar de trocar a imagem cara...

    logo, não é mais necessário limpar o Image, ou até uma forma melhor de fazer isso, seria:

    procedure TForm1.BitBtn2Click(Sender: TObject);
var 
 n: Integer;
begin
  n := Application.MessageBox('Deseja Apagar o Registro?', 'Salvar Foto', 36);
  if n = 6 then
  begin
    Table1.delete;
    if FileExists(table1.fieldbyname('caminho').AsString) then
      image1.picture.loadFromFile(table1.fieldbyname('caminho').AsString) else
      Image1.Picture := nil;
  end else 
  begin
    Table1.Cancel;
    ShowMessage('A Ação Foi Cancelada Pelo Usuário!');
    Table1.First;
  end;
end;

  10. Dbexpress+mysql

    em Delphi, Kylix

    Postado

    Não conheço o modo de funcionamento do DBExpress, mas já trabalhei com o MySQL no Delphi utilizando um set de componentes chamado MySqlDAC (Shareware), com ele você tem acesso direto ao MySQL, sem precisar passar pelo ODBC ou BDE... mas também já consegui acessar MySQL com o ODBC, você pega os drivers ODBC pro MySQL lá no site oficial do MySQL e consegue conectar também... laugh.gif

  11. Apagar Os Dados E A Figura....

    em Delphi, Kylix

    Postado

    Apagar uma Imagem de um componente TImage??

    Se for isso, é moleza, faz o seguinte...

    procedure TForm1.BitBtn2Click(Sender: TObject);
var 
  n: Integer;
begin
  n := Application.MessageBox('Deseja Apagar o Registro?', 'Salvar Foto', 36);
  if n = 6 then
  begin
    Table1.delete;
    Image1.Picture := nil; // <- Estou considerando que seu Image se chame Image1
  end else 
  begin
    Table1.Cancel;
    ShowMessage('A Ação Foi Cancelada Pelo Usuário!');
    Table1.First;
  end;
end;

    Era isso?? ou eu entendi errado??

    Espero que isso o ajude... smile.gif

  13. Cor Nos Menus - (RESOLVIDO)

    em Delphi, Kylix

    Postado

    onMeasureItem - Occurs on owner-draw menu items to determine menu item size before the menu is drawn.

    onDrawItem - Occurs when an owner-draw menu needs to be drawn.

    ps.: Eu não traduzi por que assim cada um traduz da melhor maneira pra si...

    Se liga, vou postar abaixo um exemplo de personalização dos menus que fiz aqui...

    primeiro você poe um componente TMainMenu ou um TPopupMenu no form, feito isso, insira 2 menus e ponha no evento onDrawItem e no onMeasureItem deles, codigos parecidos com este aqui:

    procedure TForm1.Azul1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  with ACanvas.Font do
  begin
    Name := 'Times New Roman';
    Color := clBlue;
    Size := 20;
    Style := [fsItalic, fsBold];
  end;

  Width := ACanvas.TextWidth((Sender as TMenuItem).Caption) + 30;
  Height := ACanvas.TextHeight((Sender as TMenuItem).Caption) + 5;
end;

procedure TForm1.Azul1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  with ACanvas.Font do
  begin
    Name := 'Times New Roman';
    Color := clBlue;
    Size := 20;
    Style := [fsItalic, fsBold];
  end;

  ACanvas.TextOut(ARect.Left + 10, ARect.Top + 2, TMenuItem(Sender).Caption);
end;

procedure TForm1.Vermelho1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  with ACanvas.Font do
  begin
    Name := 'Verdana';
    Color := clRed;
    Size := 10;
    Style := [fsItalic, fsBold];
  end;

  Width := ACanvas.TextWidth((Sender as TMenuItem).Caption) + 30;
  Height := ACanvas.TextHeight((Sender as TMenuItem).Caption) + 5;
end;

procedure TForm1.Vermelho1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  with ACanvas.Font do
  begin
    Name := 'Verdana';
    Color := clRed;
    Size := 10;
    Style := [fsItalic, fsBold];
  end;

  ACanvas.TextOut(ARect.Left + 10, ARect.Top + 2, TMenuItem(Sender).Caption);
end;

    Pronto... não vai ficar muito bonito porque eu fiz isso só de exemplo pra te mostrar como funciona o processo de desenho, mas você pode personalizar isso ao máximo, pode até colocar Imagem no Menu se quiser...

    falow

  15. Conversão De Arquivos

    em Delphi, Kylix

    Postado

    Ela deve estar querendo dizer que vai ter de pegar todos os dados em um arquivo TXT e importa-los pra uma Tabela de algum banco de dados que ela possui, certo Carol??

    Qual a estrutura desse aquivo de texto que você quer importar? ele segue um padrão especifico? pois se seguir, vai ser bem facil de criar uma rotina para a leitura dele e depois passamos os dados lidos para o banco de dados...

  16. Cor Nos Menus - (RESOLVIDO)

    em Delphi, Kylix

    Postado

    Tipow, você pode personalizar um menu totalmente utilizando os eventos de desenho dele(onDrawItem e onMeasureItem), se você utilizar esses eventos, cada item do menu pode possuir uma cor diferente, font, estilo e tal...

    só não esqueça de checar o evento OwnerDraw pra True...

    Assim você faz seu próprio menu, maneiro, né? ^__^

  17. Reportagem

    em PHP

    Postado

    Pessoal, não se álguem pode me ajudar, mas espero que que sim, Eu queria poder provar para o meu chefe que PHP é uma ferramenta poderosa, estável e atual(ele comentou por alto que ela possa ser ultrapassada dry.gif ), por isso eu queria saber onde encontro reportagens, ou artigos falando sobre o assunto, tipo, comparando ela com o ASP e o JSP(que são linguagens semelhantes no sentido, voltado pra web) se possível...

    Ficaria muito grato caso alguém possa me dar uma luz de onde achar isso... (y)

    Obrigado biggrin.gif

  19. Dbedit

    em Delphi, Kylix

    Postado

    um DBEdit tem propriedade text? oO''

    Ateh ondi me lembru das minhas utilizacoes de DBEdits em minhas aplicacoes(coisa q não faço mais), ele tinha propriedade text, porém essa propriedade não era acessível pelo Object Inspector, mas lá na "codificação" da Unit, era possivel acessar essa propriedade...

    Mas eu concordo com o Turbo, nem precisa usar DBEdit..

    acho que o que ele está falando para você fazer, é o seguinte. algo do seguinte tipo:

      Table1.Insert;
  
  Table1.FieldByName('nome_do_campo').Text := 'Valor'; //no lugar da propriedade Text, pode ser utilizado asString, asInteger, asDateTime... e assim vai....
  Table1.Post;

    Intendeu cara?

  21. Urgente

    em Delphi, Kylix

    Postado

    o componente é o Animate, já vem com o Delphi, faz tantu tempu que eu nom mexu cum ele que nom lembru kuase paleta ele si incontra, mas acho que é a Aditional...

    e nesse componente você podi ixcolheh um arquivo AVI "simples" para rodah ou intom ixkolheh em uma propriedade uma dakelas animacoes padroes, tipow a de transferencia di arquivos ^_____^

    Simples, certu? biggrin.gif

  22. Cancelando Fechamento Do Form

    em Delphi, Kylix

    Postado

    Bom, si você já extiveh dentro do evento Close e kiseh cancelar o evento, você pode fazeh o seguinti:

    no evento close tem uma variavel Action: TCloseAction...

    você pode fazeh a famosa pergunta si fexa ou nom, si o cara clicah em não, você seta a var Action assim: Action := CaNone;

    o form nom é fexado si Action recebeh CaNone...

    si o cara clicah em SIM nom precisa fazeh nada, ele serah fexado... é issow aew

  24. Agenda De Datas

    em Delphi, Kylix

    Postado

    que nada Delphi man, quando eu falei pra fazeh uma busca pra veh si tem um agendamento nakele dia e horario, eu nom me referi ao usuario fazer issow e sim ao programdor tomar o cuidado de sempre que for fazeh uma inserção xecar se um registro nas condições restritas existe, se existih ele mostra algo assim: "Nesse dia e horario já existe um agendamento tal tal tal", caso nom existe, daew ele agenda, tende?

    o usuario nem vai teh trabalho nenhum, só o programador, aheuahueahuehauhu =P

×
×
  • Criar Novo...