KeitaroSan

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)'

Bom, testei seu código e aparentemente não possui erros, pois que mandei incluir um Painel e mostrou o painel com a imagem carregada e tudo mais dentro do ScrollBox...

Bom, como eu não cnheço a sintax do MessageBox, vou mostrar como seria com MessageDlg... if MessageDlg('Caro Sr.: ' + UpperCase(FrmBancos. QrLocFunNOMEFUNC.AsString) + '. Tem certeza que deseja sair?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then Application.Terminate; Assim ficaria usando um MessageDlg...

Pinta o fundo tambem... com Canvas você tem como pintar tudo, da maneira que quiser, dá até pra você inserir uma imagem no fundo se quiser... o.o''

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...

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?

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

Qual o tipo de banco de dados você esta utilizando Lazarodm?

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;

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...

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...

Existe um componente que exibe GIFs animadas, é o TGifImage, pega ele: www.sulako.com

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

O Layout é um dos melhores que já vi, organizado, bonito, sem poluição visual, totalmente coerente, muito bom mesmo....

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...

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é? ^__^

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 ), 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

Bom, bem simples, com o componente TMemo você vai faix issow cum uma simples chamada: Memo1.Lines.LoadFromFile('caminho_do_arquivo'); moleza, não é?? xD

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?

Usando CHART para o desenho do grafico? Bom, é bem simples, vou veh si consigo montah um exemplozinhu pra ti passah assim que deh ^__^

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?

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

Preciso de algo bem simples que encontro em outras linguagens, porém em JS nom sei como é, preciso apenas de uma função que me retorne um caracter a partir do código ascii... tipow chr(65) = 'A' tenderam? Valews pela atenção

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

porque vuce nom faix uma peskisa antes de inserir aquele dado? o.o nom é maix simples nom?