Pesquisar na Comunidade

Quero saber como posso desenvolver um sistema, que seja tipo compativel para windows xp. Sabemos que a Microsoft encerrou as atualizações para esse sistema, mais existe muita gente que tem no computador ainda.

Olá pessoal. Gostaria da saber se há possibilidade do usuário navegar entre os botões de uma Toolbar utilizando as setas direita/esquerda do teclado? Se for possível fazer isto, pode colocar aqui no fórum como fazer? Desde já agradeço.

Bom dia.Estou com um probleminha que não estou conseguindo resolver.Tenho dois DBGrids onde no 'Dbgrid1' coloco as contas e no 'Dbgrid2' as parcelas das mesmas e desta forma atualizo as cores conforme baixa nas contas e parcelas.Digamos que para o 'Dbgrid1' uso o DM.qcontasareceber e no 'Dbgrid2' uso o DM.qparcelasR.Preciso que as contas vencendo no dia atual fiquem conforme abaixo. //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém preciso puxar mais um campo para validação do DM.qparcelasR mais ou menos assim //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) and (dm.qparcelas_RContaFinalizada.Value = 'Não') then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém quando coloco desta forma acima não muda a cor do grid como se não reconhecesse o comando.Alguém pode me ajudar?Segue abaixo todo o código de pintura para quem interessar!!!Todos os demais códigos estão todos funcionando!!! procedure Tfrm_ContasAReceber.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin // Selecionado if (gdSelected in State) or (gdFocused in State) then Begin DBGrid1.Canvas.Brush.Color := clBlue; DBGrid1.Canvas.Font.Color := clWhite; End // Sem gerar Parcela Else if (dm.qcontasreceberESTATUS.Value = 'QUITADO') and (dm.qContasreceberULTIMAPARCELA.Value = 0) then begin DBGrid1.Canvas.Brush.Color := clBlack; DBGrid1.Canvas.Font.Color := clWhite; end // Pago Else if (dm.qContasreceberESTATUS.Value = 'QUITADO') then begin DBGrid1.Canvas.Brush.Color := clYellow; DBGrid1.Canvas.Font.Color := clBlack; end //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end // Vencida else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value < date) and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clRed; DBGrid1.Canvas.Font.Color := clWhite; end // A Pagar else if (dm.qContasreceberPROXIMOPAGAMENTO.Value > date)and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clGreen; DBGrid1.Canvas.Font.Color := clWhite; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

Olá a todos tem como transformar o código abaixo em função ou procedure, o programa que estou desenvolvendo tera várias paginas e quase todos itens variaveis de cada página vai precisar de fazer código semelhante a esse abaixo que estou testando, mudando apenas os componentes, os valores continuram sendo os mesmos, precisaria da ajuda de vocês pra ficar mais organizado e menor o programa sem ter que ficar repentindo as mesmas instruções para cada item se não vai fica muito grande e ruim de dar uma manutenção se precisar futuramente, uma função ou procedure ou outra alternativa já resolveria, agradeço a quem puder me dá ajuda procedure TForm1.Button22Click(Sender: TObject); var testando1,testando2,testando3:integer ; Begin begin testando1:= strtoint(label33.Caption); testando2:= strtoint(label2.Caption); testando3:= strtoint(label3.Caption); if (testando1=33) or (testando2 =33) or (testando3 =33)then memo3.lines.add ('33'); if (testando1=22) or (testando2 =22) or (testando3 =22)then memo3.lines.add ('22'); if (testando1=11) or (testando2 =11) or (testando3 =11)then memo3.lines.add ('11'); if (testando1=9) or (testando2 =9) or (testando3 =9) then memo3.lines.add ('9'); if (testando1=8) or (testando2 =8) or (testando3 =8) then memo3.lines.add ('8'); if (testando1=7) or (testando2 =7) or (testando3 =7) then memo3.lines.add ('7'); if (testando1=6) or (testando2 =6) or (testando3 =6) then memo3.lines.add ('6'); if (testando1=5) or (testando2 =5) or (testando3 =5) then memo3.lines.add ('5'); if (testando1=4) or (testando2 =4) or (testando3 =4) then memo3.lines.add ('4'); if (testando1=3) or (testando2 =3) or (testando3 =3) then memo3.lines.add ('3'); if (testando1=2) or (testando2 =2) or (testando3 =2) then memo3.lines.add ('2'); if (testando1=1) or (testando2 =1) or (testando3 =1) then memo3.lines.add ('1') else memo3.lines.add (''); end; end;

Boa noite pessoal, estou quebrando a cabeça em uma questão aqui faz dois dias, já pesquisei em vários Fóruns e vídeo aulas mais sem sucesso.O Problema é o Seguinte.Tenho duas tabelas (contas_a_pagar) e (conta_a_pagar detalhes), em uma delas tenho um atualizo via "FORM" as contas com valores total da mesma, na outra atualizo "Botão Gerar Parcelas" e utilizo para gerar as parcelas.A Parte 1 que uso para gerar parcelas e inserir na minha tabela "contas_a_pagar_detalhe" esta funcionando normalmente e usei o comando abaixo: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 procedure Tfrm_ContasAPagar.BitBtn_GerarParcaela_MovClick(Sender: TObject); var qend, qend1 : TZQuery; LongintVar, i : Integer; DataConta : TDate; DataUltParcela : TDate; begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; qend1 := TZQuery.Create(nil); qend1.Connection := dm.Conect; qend.SQL.Clear; qend.SQL.Add(' SELECT ID, CENTRODECUSTO, VALORTOTAL '+#10+ ' FROM CONTAS_A_PAGAR WHERE ID = '''+ dm.qContasaPagar.FieldByName('id').asstring +''' '); qend.Open; qend1.SQL.Clear; qend1.SQL.Add('SELECT IDCONTA FROM CONTAS_A_PAGAR_DETALHE '+ 'WHERE IDCONTA = '''+ qend.FieldByName('ID').AsString +''' '); qend1.Open; LongintVar := StrToInt(edt_QtdParcelas_CP.Text); DataConta := StrToDate(edt_Data_CP.text); try if LongintVar = 1 then begin Messagedlg('Este Pagamento não tem Parcelas a Ser Geradas!',mtinformation,[mbok],0); exit; end else if qend1.RecordCount > 0 then begin Messagedlg('As Parcelas Já Foram Geradas Anteriormente!',mtinformation,[mbok],0); exit; end else begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend1.SQL.Clear; qend1.SQL.Add(' INSERT INTO CONTAS_A_PAGAR_DETALHE '+#10+ ' (CENTRODECUSTO, IDCONTA, VALOR, JUROS, '+#10+ ' DESCONTOS, DATAVENCIMENTO, PARCELA, VALORDEVEDOR) '); qend1.SQL.Add(' VALUES '); qend1.SQL.Add(' (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8) '); qend1.ParamByName('P1').asString := qend.FieldByName('CENTRODECUSTO').asString; qend1.ParamByName('P2').asString := qend.FieldByName('ID').asString; qend1.ParamByName('P3').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ParamByName('P4').asString := '0'; qend1.ParamByName('P5').asString := '0'; qend1.ParamByName('P6').asDate := incMonth(DataConta, i); qend1.ParamByName('P7').AsString := IntToStr(i)+'/'+ IntToStr(LongintVar); qend1.ParamByName('P8').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ExecSQL; end; end; except On E: Exception do raise Exception.Create(E.Message); end; ShowMessage('Foram Geradas ' + IntToStr(LongintVar) + ' Parcela(s) com Sucesso'); end; A Segunda Parte que é para atualizar meu campo "DatavUltParcela" na minha tabela conforme a "contas_a_pagar" é que mora o problema.Segue o comando que estou usando para ela. 1 2 3 4 5 6 7 8 9 begin qend.SQL.Clear; qend.SQL.Add(' UPDATE CONTAS_A_PAGAR SET (DATAVULTPARCELA) '+#10+ ' WHERE ID = '''+ qend1.FieldByName('IDCONTA').AsString +''' '); qend.SQL.Add(' VALUES '); qend.SQL.Add(' (:CP1) '); qend.ParamByName('CP1').asDate := incMonth(DataConta, i); qend.ExecSQL; end; Será que estou fazendo algo de errado?Segue o código Completo do codigo: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 procedure Tfrm_ContasAPagar.BitBtn_GerarParcaela_MovClick(Sender: TObject); var qend, qend1 : TZQuery; LongintVar, i : Integer; DataConta : TDate; DataUltParcela : TDate; begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; qend1 := TZQuery.Create(nil); qend1.Connection := dm.Conect; qend.SQL.Clear; qend.SQL.Add(' SELECT ID, CENTRODECUSTO, VALORTOTAL '+#10+ ' FROM CONTAS_A_PAGAR WHERE ID = '''+ dm.qContasaPagar.FieldByName('id').asstring +''' '); qend.Open; qend1.SQL.Clear; qend1.SQL.Add('SELECT IDCONTA FROM CONTAS_A_PAGAR_DETALHE '+ 'WHERE IDCONTA = '''+ qend.FieldByName('ID').AsString +''' '); qend1.Open; LongintVar := StrToInt(edt_QtdParcelas_CP.Text); DataConta := StrToDate(edt_Data_CP.text); try if LongintVar = 1 then begin Messagedlg('Este Pagamento não tem Parcelas a Ser Geradas!',mtinformation,[mbok],0); exit; end else if qend1.RecordCount > 0 then begin Messagedlg('As Parcelas Já Foram Geradas Anteriormente!',mtinformation,[mbok],0); exit; end else begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend1.SQL.Clear; qend1.SQL.Add(' INSERT INTO CONTAS_A_PAGAR_DETALHE '+#10+ ' (CENTRODECUSTO, IDCONTA, VALOR, JUROS, '+#10+ ' DESCONTOS, DATAVENCIMENTO, PARCELA, VALORDEVEDOR) '); qend1.SQL.Add(' VALUES '); qend1.SQL.Add(' (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8) '); qend1.ParamByName('P1').asString := qend.FieldByName('CENTRODECUSTO').asString; qend1.ParamByName('P2').asString := qend.FieldByName('ID').asString; qend1.ParamByName('P3').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ParamByName('P4').asString := '0'; qend1.ParamByName('P5').asString := '0'; qend1.ParamByName('P6').asDate := incMonth(DataConta, i); qend1.ParamByName('P7').AsString := IntToStr(i)+'/'+ IntToStr(LongintVar); qend1.ParamByName('P8').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ExecSQL; end; begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend.SQL.Clear; qend.SQL.Add(' UPDATE CONTAS_A_PAGAR SET (DATAVULTPARCELA) '+#10+ ' WHERE ID = '''+ qend1.FieldByName('IDCONTA').AsString +''' '); qend.SQL.Add(' VALUES '); qend.SQL.Add(' (:CP1) '); qend.ParamByName('CP1').asDate := incMonth(DataConta, i); qend.ExecSQL; end; end; end; except On E: Exception do raise Exception.Create(E.Message); end; ShowMessage('Foram Geradas ' + IntToStr(LongintVar) + ' Parcela(s) com Sucesso'); end; Estou trabalhando com banco de dados Mysql.Será que estou colocando a segunda parte no lugar errado? Falta algo? ou o Procedimento é errado?Alguém pode me ajudar por favor?Estou iniciando meus trabalhos com Delphi Tokio 10.2 e ainda sou um pouco leigo no assunto!!!Desde já agradeço a todos que ajudarem ou pelo menos tentarem.

Olá amigos, precisando de uma ajuda, um código para fazer uma subtração entre dois anos (somente o ano), o atual do sistema (sem ter de ser digitado)e outra variável digitado pela pessoa no Edit1, e mostrar a diferença no Label1 Supondo que seja 2018 o ano atual (do computador) e no Edit1 [ 1958 ] label1 = 60 Obrigado

olá a todos precisando de uma ajuda dos amigos, de uma função para o Lazarus que faça a contagem e pegue a letra do meio de uma palavra qualquer escrita pela pessoa no Edit, somente se a palavra tiver numero ímpar de letras. Caso a palavra escrito pela pessoa no Edit tenha número par de letras retornar 0 (zero) no label. Exemplo 'cinza' (no label mostrar a letra 'n' ) casa (no label mostrar '0') Obrigado.

Boa noite, Pessoal preciso de uma opnião de algum especialista. Seguinte: Desenvolvo sistemas em Delphi e sempre utilizei conexões ODBC para me conectar com Banco seja ele qual for e sempre fiz assim porque numca tive problemas e todas as grandes desenvolvedores de software que eu conheco (Senior, Totus, Mega e algumas outras utilizam assim). Ocorre que agora estou iniciando um projeto e estou sendo muito questionado por utilizar ODBC, me dizem que estou colocando um complicador a mais no sistema sendo que eu poderia acessar diretamente sem ele ( estou utilizando mysql). Só que eu não gosto da ideia mudar uma estrutura apenas porque alguns analistas querem que eu mude, precisa ter alguma justificativa técnica pra isto. Por tanto eu preciso de algum argumento técnico, uma matéria ou algo que justifique a utilização ou não do uso de ODBC. alguém pode me ajudar nisto, alguém tem algum argumento técnico falando dos prós e contras da utilização de conexões ODBC.

Olá. No VCL o listBox tem a propriedade TopIndex, e no FMX qual seria ? Desde já agradeço.

Bom dia Preciso converter um código que está em Java para usar no delphi. este código criptografa uma senha.Alguém consegue converter este código para pascal pois eu conhecimento em java é bem próximo de zero:******************************************************************************************import java.util.Base64;import javax.crypto.Cipher;import javax.crypto.spec.IvParameterSpec;import javax.crypto.spec.SecretKeySpec;public class Cryptography{private static String key = "G!P@4#1$1%M4SC4D";private static String iv = "C#&UjO){QwzFcsPs";public static String encrypt(String plainText) throws Exception{byte[] plainTextbytes = plainText.getBytes("UTF-8");byte[] keyBytes = key.getBytes("UTF-8");byte[] ivBytes = iv.getBytes("UTF-8");Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5Padding");SecretKeySpec secKey = new SecretKeySpec(keyBytes, "AES");cipher.init(Cipher.ENCRYPT_MODE, secKey, new IvParameterSpec(ivBytes));return Base64.getEncoder().encodeToString(cipher.doFinal(plainTextbytes));}}obrigado;

Olá estou tendo dificuldade em converter esse código java em código delphi, agradeço pela ajuda dos amigos na ajuda para poder converter esse código em delphi import java.util.Scanner; public class javaPessorneCalc { /** * @param args */ public static void main(String[] args) { // TODO Auto-generated method stub Scanner scan = new Scanner(System.in); int i, size, counter = 0, numer = 0, numLen, numFin = 0; int[] nums; char a; String input = "", numero = ""; System.out.println("Enter the for analysis: "); input = scan.nextLine(); scan.close(); size = input.length(); while(counter < size) { a = input.charAt(counter); if(a == 'a' || a == 'j' || a == 's' || a == 'A' || a == 'J' || a == 'S') { numer += 1; } else if(a == 'b' || a == 'k' || a == 't' || a == 'B' || a == 'K' || a == 'T') { numer += 2; } counter++; } numero += numer; numLen = numero.length(); nums = new int[numLen]; for(i = 0; i < numLen; i++) { if(numero.charAt(i)== '0') nums = 0; else if(numero.charAt(i)== '1') nums = 1; else if(numero.charAt(i)== '2') nums = 2; } for(i = 0; i < nums.length; i++) { if (numer == 11 || numer == 22 || numer == 33 || numer == 44) { numFin = numer; i = nums.length; } else numFin += nums; } System.out.println("The name, '"+input+"', adds to "+numer+" and totals to "+ numFin+"!"); } }

Bom estou em duvida vi aqui no fórum algo a respeito sobre isso Conteúdo achado no fórum e estou a procura de mais explicações e exemplos Estou a desenvolver um Auto-Backup de Banco de dados gerando seu arquivo .SQL e compactando em um arquivo .zip ou .rar, minha duvida é o seguinte queria criar um executável no qual ele ira encapsular o arquivo .zip ou .rar para dentro dele, exemplos de encapsulamento de arquivos em um executável encontrados aqui aqui , eu sei também que tem como fazer esse encapsulamento via código no Delphi construindo o código e passando o local do arquivo e também sei que o Delphi permite compilar manualmente. Exemplo do que eu quero e tipo o Winrar que gera um Arquivo.rar de sua extensão que é aberto em seu software e com possível proteção de senha. Explicações: Quero fazer um executável a partir do meu para encapsular um arquivo pois assim o arquivo só poderá ser aberto por esse executável gerado criando assim algumas personalizações do tipo colocar senha no executável assim protegendo o arquivo.

Boa noite preciso usar este programa no sorteio aleatório usando três palavras só que o problema é que palavra "amarelo" é exibida no Label1 em primeiro lugar toda vez inicia o programa pela primeira vez e preciso que seja aleatório também. Não sei este código é mais indicado para este caso sou iniciante, e conto com ajuda de vocês. Agradeçido procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin i := RandomRange(1,5); Case i of 2: Label1.caption := ('verde'); 3: Label1.caption := ('amarelo'); 4: Label1.caption := ('vermelho'); end;

Estou tentando fazer um Form de Pesquisa, utilizando arrays. Fiz da seguinte forma, mas não consigo definir os dados do array. Sempre dá erro na declaração do array. procedure TF_Pesquisa.FormShow(Sender: TObject); // Para definir os dados do DBGrid. var aCampos : array [ 1..2, 1..3 ] of String ; // Campo 1 = Nome do campo da Tabela a ser pesquisado // Campo 2 = Título no DBGrid // Campo 3 = Largura do campo do DBGrid i : Integer ; begin if DONDE.Caption = 'Cad_Clientes' then aCampos := [ [ 'COD_CLIENTE', 'Cód.', '70' ], [ 'NOME', 'Cliente', '420' ] ] ; if DONDE.Caption = 'Cad_Fornecedores' then aCampos := [ [ 'COD_FORNECEDOR', 'Cód.', '70' ], [ 'RAZAO', 'Fornecedor', '420' ] ] ; for i := 1 to 2 do begin DBGrid1.Columns.Add ; DBGrid1.Columns[i-1].FieldName := aCampos [ i, 1 ] ; // Coluna 0 DBGrid1.Columns[i-1].Title.Caption := aCampos [ i, 2 ] ; DBGrid1.Columns[i-1].Width := StrToInt ( aCampos [ i, 3 ] ) ; end; end ; procedure TF_Pesquisa.Ed_PesqExit(Sender: TObject); // Ed_Pesq = tEdit - palavra a ser localizada begin Query1.Close ; Query1.SQL.Clear ; if DONDE.Caption = 'Cad_Clientes' then begin Query1.SQL.Add ( 'Select * from Cad_Clientes' ) ; Query1.SQL.Add ( 'Where NOME like "%' + Ed_Pesq.Text + '%" ' ) ; Query1.SQL.Add ( 'Order by NOME' ); end; if DONDE.Caption = 'Cad_Fornecedores' then begin Query1.SQL.Add ( 'Select * from Cad_Fornecedores' ) ; Query1.SQL.Add ( 'Where RAZAO like "%' + Ed_Pesq.Text + '%" ) ' ) ; Query1.SQL.Add ( 'Order by RAZAO' ); end; Query1.Open ; end ; A pesquisa está funcionando perfeitamente. O problema está na definição do array. Obrigado, Bettega.

eu tenho uma tabela no banco de dados. Até vou procurar mais na web pra ver se tem resposta. Mas eu preciso pegar todos os campos da tabela e jogar no formulário do delphi pra poder pegar os dados. Além disso tem que dizer qual o nome do campo da tabela. eu já vi isso mas não lembro como faz. obrigado, até logo.

Boa noite tem como fazer operações com medidas de ângulos expressos em angulos, minutos e segundos? Obrigado

Boa tarde. Instalei o Delphi Tokyo 64 bits Trial no Windows 10 Home, instalei tambem o Oracle 11G Express 64 bits. Quando tento usar o componente TsqlConnection do DbExpress ocorre o erro seguinte: - "dbx error: driver could not be properly initialized. client library may be missing, not installed properly, of the wrong version, or the driver may be missing from the system path".

Boa Noite quando se clica no buton1 o programa carrega de forma aleatória uma imagem entre muitas de uma pasta, nesta pasta terá vários documentos de textos (bloco de notas) um para cada imagem fazendo a sua descrição. É possivel carregar a imagem de forma aleatória junto com o seu texto correspondente no MEMO ao mesmo tempo. Obrigado Estou usando o este código no programa Lazarus unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, math; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Image1: TImage; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); //Não esqueçer de insirir Math no Uses se não dará erro e não funcionará var i : Integer; begin i := RandomRange(1,5); Case i of 2: Image1.Picture.LoadFromFile('flores\02.jpg'); 3: Image1.Picture.LoadFromFile('flores\03.jpg') ; 4: Image1.Picture.LoadFromFile('flores\04.jpg') ; end; end; end.

Olá a todos. Estou com a seguinte duvida: Tenho este condigo para localizar um string especifica em um arquivo binário. procedure TForm3.Button1Click(Sender: TObject); var StStream: TStringStream; FStream: TFileStream; S, SDS : UnicodeString; begin FStream := TFileStream.Create('c:/file.bin', fmOpenRead); StStream := TStringStream.Create(''); StStream.CopyFrom(FStream, FStream.Size); SDS := StStream.DataString; try S := 'blablabla'; if Pos(S, SDS) > 0 then ListBox1.Items.Add(S); finally StStream.Free; FStream.Free; end; end; Mas o o problema é que: só localiza se eu souber o que procurar. Como faço para localizar strings em vários pontos do arquivo bin. Usando o seek() sei como localiza os pontos que quero ler, como ler as strings a partir destes pontos. Desde já agradeço.

eai glr, beleza?eu to tendo um probleminha da execução de um programa. eu tenho um form com 18 botões e cada botão abre outro form diferente, so q quando ta chegando entre o 10 e o 11 da erro. os outros botões funcionam normalmente.ps: o erro q aparece é esse :" Project Project1.exe raised exception class EInvalidOperation with message ''''Cannot make a visible window modal''''. Process stopped. Use step or Run to continue. " " form1.hide;form 2.showModal; " uso esse pra abir outro form"form2.close;form1.showModal; " uso esse no outro form pra retornar ao menuto usando o mesmo comando eu todos os botões do menu, não to entendendo porque ele so ta dando erro no botão 10 e 11

Bom dia estou encontrando dificuldades no Lazarus e agradeço desde de já a qualquer ajuda. Tenho alguns arquivo de textos txt em pastas diferentes, gostaria de saber como faço para juntar todos esses arquivos em um só, usando RadiosGroups com 6 itens cada e cada RadioGroup tem uma opção (nenhum)para desabilita-lo

Fala galera! estou precisando de uma ajuda... Já pesquisei em vários sites, páginas e buscas e ainda não encontrei uma resposta. Tenho uma aplicação em Delphi que utiliza um webbrowser para fazer uma pesquisa num site. O problema é que durante a pesquisa, depois que disparo o click do botão 'Pesquisar', o site desabilita a página do site e coloca um gif em modal na frente até a pesquisa terminar e eu não estou conseguindo fazer o webbrowser identificar quando essa pesquisa terminou. Já tentei: while WebBrowser1.ReadyState < READYSTATE_COMPLETE do Application.ProcessMessages; Mas o webbrowser não reconhece esse gif modal como carregamento de página. Alguém tem alguma idéia?

Olá estou com dificuldades as letras com acentos e alguns caracteres em português, ficam extranhas quando salvo no arquivo de texto. Acho que deva ser erro de codifição de caracteres, ou algum ajuste no programa Lazarus, agradeçido. procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; sl.Add(Memo1.Lines.Text); sl.Add(Memo2.Lines.Text); sl.Add(Memo3.Lines.Text); savedialog1.filename := 'alias.txt'; if savedialog1.execute then sl.SavetoFile(savedialog1.filename); sl.Free; end;

Olá! é um problema simples mais, que até agora não encontrei solução e nem na internet. Tenho dois caixas em meu sistema, um para compras Rápidas e outro Para compras Maiores, todos os dados inclusive a abertura de caixa, são armazenados em uma Tabela, com a seguinte Descrição. 1º Descricao entrada dinheiro em preto. 2º Descrição Vendas em Azul. 3º Descrição saída em vermelho. E um button que ao ser clicando joga todos os valores correspondentes da tabela para seus determinados Edits. Quando faço uma venda no Determinado Caixa Rápido, ele cai na tabela como programado em azul> Indicando para o Usuário que em azul e as vendas. O problema é quando faço venda no outro caixa, ele cai na tabela em preto!! Assim não é feita a soma dos valores nem nada. Já no outro funciona de boa. O Código dos Dois Forms são os mesmos, não sei o que estou fazendo de errado. Desculpe se não fui muito claro..

Bom dia. Tenho aplicação delphi xe8 acessando base da dados mysql innodb com dbexpress e tsqlconnection, até dia 22 de novembro estava funcionando tudo certo (a mais de dois anos) com mais de 30 usuários ao mesmo tempo em terminal server windows. Na noite do dia 22, se um usuário entra sozinho no sistema, funciona normalmente, mas se vários acessam ocorre a mensagem "não respondendo" e não conclui a gravação dos dados, travando o sistema. Estou apavorado, pois não localizo nada de errado. Instalado mysql padrão e são 14 lojas paradas desde dia 22. Obrigado