Alterar o mes da data DEZ para DEC

Delphi

19/01/2004

Como eu faço alterar mes para ingles ex: Dezembro para December ?


Luciano.edson

Luciano.edson

Curtidas 0

Respostas

Wolverine

Wolverine

19/01/2004

procedure TForm1.Button1Click(Sender: TObject);
const ing: array[1..4] of string = (´Dec´,´Oct´,´dez´,´out´,´ Dez ´,´ Out ´);
const por: array[1..4] of string = (´Dez´,´Out´,´dez´,´out´,´ Dez ´,´ Out ´);
var
xx:string ;
x:integer;
begin
xx:=Edit1.Text;

for x := 1 to high(ing) do
xx := StringReplace(xx,ing[x],por[x],[rfReplaceAll]);
ShowMessage(xx);
end;

aqui da certo


so q vc tem q fazer um [b:8286a24fa1]for[/b:8286a24fa1] para o verificar na tabela td o campo Data:
procedure TForm1.Button1Click(Sender: TObject);
const ing: array[1..4] of string = (´Dec´,´Oct´,´dez´,´out´,´ Dez ´,´ Out ´);
const por: array[1..4] of string = (´Dez´,´Out´,´dez´,´out´,´ Dez ´,´ Out ´);
var
xx:string ;
i:integer;
begin

for i:=table.eof to table.bof do
with table.fieldbyname(´Data´) do
for x := 1 to high(ing) do
xx:=table.fieldbyname(´Data´);
xx := StringReplace(xx,ing[x],por[x],[rfReplaceAll]);
end;

so q eu ñ sei se é assim q se faz para verificar a tabela


GOSTEI 0
Wolverine

Wolverine

19/01/2004

const ing: array[1..4] of string = (´Dec´,´Oct´,´dez´,´out´,´ Dez ´,´ Out ´);
const por: array[1..4] of string = (´Dez´,´Out´,´dez´,´out´,´ Dez ´,´ Out ´);
var
xx:string ;
i:integer;
begin

for i:=table.eof to table.bof do
with table.fieldbyname(´Data´) do
for x := 1 to high(ing) do
[b:c788a2ec0d]begin[/b:c788a2ec0d]
xx:=table.fieldbyname(´Data´);
xx := StringReplace(xx,ing[x],por[x],[rfReplaceAll]);
[b:c788a2ec0d]end;[/b:c788a2ec0d]
end;


GOSTEI 0
POSTAR