Kristian
-
Total de itens
15 -
Registro em
-
Última visita
Posts postados por Kristian
-
-
Brigadão cara, problema resolvido...
falou
-
Dae galera...
To com um probleminha aqui, deve ser burrice minha pois procurei em varios lugares e só encontrei essa função para contar letras, dem uma olhada para ver o que estou fazendo errado...
Function WordsCount( s : string ) : integer;
var
ps: PChar;
nSpaces,n : integer;
begin
n := 0;
s := s + #0;
ps := @s[ 1 ];
while( #0 <> ps^ ) do
begin
while((' ' = ps^)and(#0 <> ps^)) do
begin
inc( ps );
end;
nSpaces := 0;
while((' ' <> ps^)and(#0 <> ps^))do
begin
inc(nSpaces);
inc(ps);
end;
if ( nSpaces > 0 ) then
begin
inc( n );
end;
end;
Result := n;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToStr(WordsCount(Edit1.Text));
end;
A palvra a ter as letras contadas está dentro do Edit1.text, só que meu resultado é sempre "1". O que eu estou fazendo errado?
-
Dae galera...
alguém sabe onde posso encontrar o modelador de banco de dados Data Architect, tinha esse cara na minha maquina e acabei perdendo.
Se alguém souber me ajude...
falou...
-
ninguém sabe?
Sei que da só não sei como.
Me ajudem...
-
Olá Galera
Alguém sabe com eu faço para acessar tabelas dbf sem o bde.
Já vi um sistema que faz isso usando uma dll, alguém tem alguma idéia de como posso fazer algo do tipo?
Aguardo...
-
Não faço idéia.
A questão é exatamente essa nunca havia visto nada do tipo .dat, to precisando desenvolver um software que leia informações de um outro sistema que usa arquivos .dat para guardar informações, e não faço nenhuma idéia de como se cria esses arquivos .dat muito menos como se manipula.
Acho que to ferrado...
-
Olá galera...
To com um probleminha, preciso fazer um programa que leia informações em arquivos .dat, só que nunca trabalhei com esse tipo de arquivo será que alguém sabe com faço para poder abrir esses arquivos pelo Delphi7.
Aguardo...
-
Já matei a charada se mais aguem precisar é mais ou menos assim....
unit MenuPrincipal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCore, dxButton,Inifiles;
type
TDriveType = (dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM, dtRAM);
TForm1 = class(TForm)
dxButton1: TdxButton;
procedure dxButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetTmpDir: string;
var
pc: PChar;
begin
pc := StrAlloc(MAX_PATH + 1);
GetTempPath(MAX_PATH, pc);
Result := string(pc);
StrDispose(pc);
end;
procedure DelExe;
function GetTmpFileName(ext: string): string;
var
pc: PChar;
begin
pc := StrAlloc(MAX_PATH + 1);
GetTempFileName(PChar(GetTmpDir), 'EZC', 0, pc);
Result := string(pc);
Result := ChangeFileExt(Result, ext);
StrDispose(pc);
end;
var
batchfile: TStringList;
batchname: string;
begin
if (TDRiveType(GetDriveType(PChar('C:\'))) = dtFloppy) or (TDRiveType(GetDriveType(PChar('C:\'))) = dtFixed) then
begin
batchname := GetTmpFileName('.bat');
FileSetAttr(ParamStr(0), 0);
batchfile := TStringList.Create;
with batchfile do
begin
try
Add(':Label1');
Add('del "' + ParamStr(0) + '"');
Add('if Exist "' + ParamStr(0) + '" goto Label1');
Add('rmdir "' + ExtractFilePath(ParamStr(0)) + '"');
Add('del "' + GetTmpDir + ExtractFileName(ParamStr(0)) + '"');
Add('del ' + batchname);
SaveToFile(batchname);
ChDir(GetTmpDir);
WinExec(PChar(batchname), SW_HIDE);
finally
batchfile.Free;
end;
Halt;
end;
end
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DelExe;
end;
end.
Valeu pela ajuda.....
-
O Setup foi totalmente desenvolvido por mim em Delphi7, precisei desenvolver um, pois aqueles que existem por ai não atediam as nossas necessidades...
Criei um com caracteristicas própias como por exemplo fazer backup dos dados antes de atualizar o sistema, entre outros...
-
Na real é o seguinte....
Eu trabalho em uma empresas que representante de um software muito conceituado no mercado nacional, nós atuamos na região de SC e RS, temos uma rede de mais de 250 clientes nesses dois estados, então a cada vez que sai uma nova versão ou mesmo uma nova release, nós precisamos passar cliente por cliente para atualizar o sistema, e não podemos cobrar nada adicional por isso.
Então me encarregaram de desenvolver um Setup de atualização que o cliente pudesse fazer a atualização sozinho, porem temos que ter certos itens de segurança, como por exemplo excluir o Setup ao final da atualização para evitar copias ilegais.
O Setup já funciona legal só falta configurar alguns desse itens.
Sacou?
-
O problema é que não tenho como mecher no fonte do programa que eu vou instalar, por que é de uma outra empresa, e também não posso fazer em .bat porque vai funcionar da seguinte forma, o nosso cliente entra na pagina, baixa os SETUP's e executa-os só que só Deus sabe onde ele vai baixar os executáveis, ai como eu vou direcionar o .bat para excluir os executáveis?
Sera que não tem nenhuma forma de eu liberar e executével da memória, para deleta-lo?
-
Na verdade este programa é uma espécie de SETUP só que esta dividido em quatro para ficar mais leve para fazer download, é só executar o primeiro e ele por si só executa os demais, só que quando o quarto e ultimo é finalizado, ele precisa excluir os três primeiros e ele própio, só que tava querendo fazer isso sem ter de criar um .bat, nem excluir uma pasta inteira.
Entendeu?
-
Olá galera,
Ve se é possivel, tenho que executar um programa, que ao final de sua execução ele se auto-exclua. Ou seja se Suicide....
É possivel ?????
-
Olá pessoal
Já programo em Delphi a algum tempo mas sempre usei o Interbase, agora queria passar alguns dos meus sistemas para FireBird, só que não sei como faço para fazer o Delphi se comunicar com .gdb sem ser com o IBDataBase e com o IBTransaction, será que alguém pode me ajudar???
falou...
Conversão De Data Para Inteiro
em Delphi, Kylix
Postado
Dae Galera...
alguém sabe me dizer se tem algum comando ou função para transformar um campo data para inteiro sem ter que transformar em string primeiro...