6
Tem programador que tem dificuldade de nomear coisas. Na verdade é meio normal entre as pessoas em geral, tem até uma citação que as duas coisas mais difíceis da computação é invalidar cache e nomear coisas.
Não posso falar qual o motivo de terem feito isso, mas pra mim é só uma forma de tentar dar um nome só pra várias coisas e tornar a função mais ...
respondida 31/07/18 às 20:55
4
Você pode usar diretivas de compilação. Exemplo retirado da documentação do Free Pascal.
unit testi;
interface
{$I *}
implementation
end.
Neste exemplo, o compilador vai procurar um arquivo chamado testi ou testi.pp e vai "colar" onde está a diretiva de compilação {$I}.
O compilador vai procurar o seu arquivo nos seguintes lugares:
local especificado ...
4
Troque o comando write() por writeln() na hora de escrever o resultado.
Mude:
write (iMat[iLin,iCol]);
Para:
writeln (iMat[iLin,iCol]);
respondida 8/08/16 às 18:42
4
Você está a usar a propriede Size.... que nao lhe diz nada sobre o que foi digitado.
Precisa usar o
if StrToInt(edtN1.Text)> StrToInt(edtN2.Text) then
3
Você pode utilizar o plugin Inno Download Plugin.
Exemplo de utilização:
#include <idp.iss>
[Files]
Source: "{tmp}\file1.xyz"; DestDir: "{app}"; Flags: external; ExternalSize: 1048576
Source: "{tmp}\file2.xyz"; DestDir: "{app}"; Flags: external; ExternalSize: 1048576
Source: "{tmp}\file3.xyz"; DestDir: "{app}"; Flags: external; ExternalSize: 1048576
...
respondida 23/11/16 às 18:15
David
4.25233 medalhas de ouro2424 medalhas de prata5656 medalhas de bronze
3
Para usar um arquivo .INI;
Primeiro criar um arquivo do tipo .ini com o conteúdo exemplo:
[P_LOG]
comando = teste
Função para fazer a leitura do arquivo .ini:
function TForm1.LeIni(sIndice, sCampo: string): string;
var
ArqIni: TIniFile;
begin
try
Result := '';
ArqIni := TIniFile.Create(ExtractFilePath(Application.ExeName) +'Teste.ini');
...
respondida 31/10/15 às 18:46
Harry
3.74433 medalhas de ouro2424 medalhas de prata5353 medalhas de bronze
3
Você deve enviar uma Procedure para o Ontimer, e não uma String.
Se sua intenção com a String 'Close' for fechar o Formulario é simples, crie uma Procedure com o tipo (Sender: TObject) com o comando Close:
procedure FecharFormulario(Sender: TObject);
begin
Close;
end;
Para o Evento OnTimer você faz:
Timer1.OnTimer := FecharFormulario;
respondida 29/10/15 às 8:39
Junior Moreira
7.19944 medalhas de ouro1717 medalhas de prata4848 medalhas de bronze
3
O componente UniqueInstance pode fazer esse trabalho para você, para usa-lo basta soltar um componente no formulário principal, manipular a propriedade Identifier(utilizado para identificar sua aplicação) e ativa-lo.
Você também pode fazer isso utilizando a função CreateMutex() para identificar a aplicação, se a função tiver êxito o valor de retorno será a ...
respondida 10/12/14 às 3:19
stderr
29,9mil55 medalhas de ouro3939 medalhas de prata6767 medalhas de bronze
3
Descobri! minha pergunta foi respondida no StackOverflow
O codigo ficou assim:
Program Pascal ;
var
i:integer;
vect:array[1..1001] of integer;
Myfile: text;
begin
i:=1;
for i:= 1 to 999 do
vect[i]:=i+1;
Assign(Myfile, 'Myfile.txt');
Rewrite(MyFile);
for i:= 1 to 999 do
begin
WriteLn (vect[i]);
WriteLn(Myfile, vect[i]);
...
respondida 13/02/16 às 23:44
h1k3r
90511 medalhas de ouro66 medalhas de prata2626 medalhas de bronze
3
Basicamente dizendo você deverá criar um vetor de registro que conterá os seguintes dados: modelo do carro, marca, valor da diária, situação (Disponível ou Alugado), cliente atual e quantidade de diárias.
Considere que o programa possua o cadastro dos clientes com código, nome e telefone.
Cadastro de veículo: Para cadastrar os dados de um veículo em uma ...
respondida 1/05/14 às 0:56
stderr
29,9mil55 medalhas de ouro3939 medalhas de prata6767 medalhas de bronze
3
Uma solução simples é colocar um nome para cada frame criado. Fica assim:
procedure TMain.Button1Click(Sender: TObject);
var
i:integer;
frame:TFrame;
begin
for i := 0 to 5 do
begin
frame := Tframe.create(self);
frame.name := 'MeuFrame' + IntToStr(i);
with frame do
begin
parent:= self;
...
3
A maneira mais simples é começar a iteração já com o valor do 12o número e do 11o número e ir subtraindo-os até chegar nos valores iniciais da sequência:
program Exercicio_31;
var V:array[3..12]of integer;
I,termo1,termo2,novoTermo:integer;
begin
writeln('Serie de Fibonacci');
writeln('==================');
termo1 := 144;
termo2 := 89;...
3
Quando você cria uma variável dentro de um um método/função/procedimento, essa variável só pode ser acessada dentro do próprio escopo, sendo assim, você não consegue acessar a variável da função 1 estando na função 2 a não ser que seja um retorno ou parâmetro passado por referência.
Uma outra forma de fazer o que você precisa é utilizar uma variável global, ...
respondida 28/07/18 às 2:12
Roberto de Campos
5.29511 medalhas de ouro1717 medalhas de prata2929 medalhas de bronze
3
Faltam o begin e o end para os if e algumas variáveis estavam escritas diferente da declaração.
program valormaior_oumenor ;
Uses Crt;
var
valorinicial, valorfinal:integer;
begin
writeln('Digite um valor ');
read(valorinicial);
writeln('Digite outro valor ');
read(valorfinal);
if (valorinicial>valorfinal) then
begin
...
3
Vamos ao problema em si. O Teste lógico esta errado, pois existe duas variáveis com o mesmo nome dos componentes.
E no pascal ele vai dar prioridade para as variáveis locais.
Você não recebeu erro de compilação porque Integer possui uma função chamada Size.
O correto seria testar conforme já respondido: if StrToInt(edtN1.Text)> StrToInt(edtN2.Text) ...
respondida 11/10/19 às 14:17
Junior Moreira
7.19944 medalhas de ouro1717 medalhas de prata4848 medalhas de bronze
2
Mesmo que exista uma gambiarra (o que eu duvido muito) que serialize identificadores locais em String, a proposta abaixo é mais simples e (em minha opinião) mais elegante.
interface
uses Vcl.Dialogs, Classes;
type
TMyArray = array[0..4] of String;
TStringHash = class
private
FKeys : TStringList;
FValues : Array of TMyArray;
...
respondida 4/11/14 às 15:19
Guill
1.28522 medalhas de ouro1010 medalhas de prata2929 medalhas de bronze
2
Aqui deixo um tutorial com a solução para a minha pergunta (contém algumas adaptações que fiz para facilitar o processo).
Tutorial
Primeiramente o Lazarus IDE tem uma ferramenta chamada lazres.exe, localizada na pasta tools do Lazarus (X:\diretório_do_lazarus\tools\lazres.exe) - substitua o que está em negrito pela unidade e diretório de instalação do ...
2
...
EDIT
Então amigo, acabei vendo usa edição e realmente o NotePad++ não consegue fazer!
O que nos resta fazer? Criei uma ferramenta para isso e vou compartilhar com a comunidade! Não só isso, que resolva o problema e qualquer outro semelhante que possa aparecer com o mesmo sentido!
Interface da Ferramenta (aproveitei e deixei os nomes dos componentes):
...
respondida 14/01/16 às 22:44
Junior Moreira
7.19944 medalhas de ouro1717 medalhas de prata4848 medalhas de bronze
2
Uma aplicação em Delphi é dividida em units. Cada unit é um arquivo de código fonte em linguagem ObjectPascal (não é o pascal padrão), onde podem ser declarados diversas construções de linguagem, como tipos e procedimentos isolados. Para que uma unit possa ter acesso a construções declaradas em outra, existe uma sessão chamada uses. Esta sessão contem a ...
2
O que seria mais vantajoso ao chamar uma função, colocar na pilha da direita para esquerda ou vice-versa?
Se entendi o que deseja saber, no seu código, de uma maneira geral, faz pouca diferença como coloca. É interessante se preocupar com isso só por causa de alguma otimização para alguma situação específica, afinal tem convenção de chamada que colocar os ...
respondida 10/12/16 às 22:55
2
Boa tarde,
Consegui realizar da seguinte forma, em [TASK], acrescentei uma opção para o cliente decidir se deseja realizar o download o ou não, depois de informar a minha base de dados acrescentei em [CODE] a seguinte condição.
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
if CurPageID = wpSelectTasks then
begin
if ...
2
Para que todo elemento seja impresso a data junto, você vai precisar concatenar(juntar o texto). No pascal isso é feito com o +.
Para inserir a data você pode usar DateTimeToStr(Now).
Para executar alguma coisa a cada X iterações, você pode usar o operador mod. Ele é o operador de resto de uma divisão. Usando if (X mod Y = 0) significa que vai executar o ...
2
Um pequeno melhoramento que traz um aprendizado no tocante a organização da impressão do resultado.
Program Pascal ;
var
i, j:integer;
vect:array[1..1000] of integer;
Myfile: text;
begin
j := 0;
for i := 1 to 1000 do
begin
vect[i] := j + 1;
j := j + 1;
end;
Assign(Myfile, 'Myfile.txt');
Rewrite(MyFile);
for i := 1 to 1000 ...
respondida 25/03/16 às 16:00
Bruno Silva
15511 medalhas de ouro11 medalhas de prata1111 medalhas de bronze
2
Sua procedure ClicaItem tem que pertencer a uma instancia de uma classe (objecto);
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure ...
2
Assim: Um for para linha e outro para coluna (dentro).
Program HelloWorld(output);
var
matriz: array [1..3,1..3] of integer;
linha, coluna: integer;
begin
matriz[1,1] := 1;
matriz[1,2] := 2;
matriz[1,3] := 3;
matriz[2,1] := 1;
matriz[2,2] := 2;
matriz[2,3] := 3;
matriz[3,1] := 1;
matriz[3,2] := 2;
matriz[3,3] := 3;
for linha := 1 ...
2
an = a1 * power(q, n – 1)
Documentação.
respondida 19/08/17 às 12:13
2
Podes injectar esses dados no report . Mas é mais facil e pratico no report trabalhares com datasets.
Porque não preenches um TClientDataSet(Um dataset em memoria que não precisa de estar ligado à BD) com os dados da matriz antes de mandares imprimir o report, e usas o report ligado a esse dataset?
Existem várias formas de o fazer mas sugeria algo como:
...
2
Se ele retorna a String do Item, utilize a função nativa da classe TStrings.
Ex: ComboBoxX.Items.IndexOf('o_que_ele_retornou_string');
Ver documentação interna da IDE: TStrings - > IndexOf.
Obs. Se a String aparecer mais de uma vez na Lista, ele retornara índice da primeira!
Edit.
Para ligação manual, deve se ter em mente que o "binding" não traz todas ...
respondida 13/04/18 às 19:07
Junior Moreira
7.19944 medalhas de ouro1717 medalhas de prata4848 medalhas de bronze
Apenas as respostas wiki não pertencentes à comunidade mais votadas e de um tamanho mínimo se qualificam
Tags relacionadas
pascal × 65delphi × 31
lazarus × 8
object-pascal × 6
c × 3
string × 3
matriz × 3
procedure × 3
firemonkey × 3
delphi-xe8 × 3
delphi-xe6 × 3
android × 2
sql × 2
array × 2
funções × 2
delphi-7 × 2
txt × 2
instalação × 2
treeview × 2
fast-reports × 2
inno-setup × 2
mysql × 1
json × 1
orientação-a-objetos × 1
api × 1