ActiveDelphi :: Exibir tópico - Funções e Procedimentos Básicos do Delphi

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Pesquisar

Membros

Grupos

Registrar

Perfil

Entrar e ver Mensagens Particulares

Entrar

Funções e Procedimentos Básicos do Delphi
Ir à página 1, 2 Próximo

ActiveDelphi - Índice do Fórum -> Delphi

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 1:54 am Assunto: Funções e Procedimentos Básicos do Delphi

Vou postar ai As principais Funções do Delphi , Para as pessoas q estao começando agora que querem ter uma noção melhor, isso me ajudou muito: Editado pela última vez por wandinhodelphiweb em Sáb Mai 02, 2009 1:56 am, num total de 1 vez

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 1:55 am Assunto:

Principais Procedimentos e Funções Pré definidas
procedure Beep;
Toca um beep

Código:

procedure ChDir(S: string);
Troca o diretório corrente para o diretório especificado em S.
begin
{$I-}
{ Change to directory specified in Edit1 }
ChDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg('Cannot find directory', mtWarning, [mbOk], 0);
end;

Código:

function Chr(X: Byte): Char;
Retorna o caracter com o código ASCII X
begin
Canvas.TextOut(10, 10, Chr(65)); { The letter 'A'}
end;

Código:

function Concat(s1 [, s2,..., sn]: string): string;
Concatena as strings
var
S: string;
begin
S := Concat('ABC', 'DEF'); { 'ABCDE' }
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 1:57 am Assunto:

Código:

function Copy(S: string; Index, Count: Integer): string;
Retorna uma substring de S, começando a partir de Index e tendo Count caracters
The Copy function returns a substring of a string.
var S: string;
begin
S := 'ABCDEF';
S := Copy(S, 2, 3); { 'BCD' }
end;

Código:

function CreateDir(const Dir: string): Boolean;
Cria um novo diretório e retorna o sucesso da operação

Código:

function Date: TDateTime;
Retorna a Data atual
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Today is ' + DateToStr(Date);
end;

Código:

function DateToStr(Date: TDateTime): string;
Converte Data para String
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := DateToStr(Date);
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 1:58 am Assunto:

Código:

function DayOfWeek(Date: TDateTime): Integer;
Retorna o dia da semana especificado entre 1 e 7, onde domigo é um e Sábado é 7
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
begin
ADate := StrToDate(Edit1.Text);
Label1.Caption := 'Day ' + IntToStr(DayOfWeek(ADate)) + ' of the week';
end;

Código:

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
Quebra os valores especificados no parâmetro Date em Year, Month e Day.
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;

Código:

procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
Quebra os valores especificados em Time nos par6ametros Hour, Min, Sec e MSec.
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;

Código:

procedure Delete(var S: string; Index, Count:Integer);
Remove a substring de Count caracters da string S partir da posição Index
var
s: string;
begin
s := 'Honest Abe Lincoln';
Delete(s,8,4);
Canvas.TextOut(10, 10, s); { 'Honest Lincoln' }
end;

Código:

function DeleteFile(const FileName: string): Boolean;
Apaga o arquivo FileName do disco. Se o arquivo não puder ser apagado a função retorna False.
DeleteFile('DELETE.ME');

Código:

function DirectoryExists(Name: string): Boolean;
Verifica se Name diretorio existe

Código:

function DiskFree(Drive: Byte): Integer;
Retorna o número de bytes livre no driver especificado em Drive.
Onde : 0 = Corrente, 1 = A, 2 = B,...
DiskFree retorna –1 se o driver for inválido
var
S: string;
begin
S := IntToStr(DiskFree(0) div 1024) + ' Kbytes free.';
Canvas.TextOut(10, 10, S);
end;

Código:

function DiskSize(Drive: Byte): Integer;
Retorna o tamanho em bytes do driver especificado.
Onde : 0 = Corrente, 1 = A, 2 = B,...
DiskFree retorna –1 se o driver for inválido
var
S: string;
begin
S := IntToStr(DiskSize(0) div 1024) + ' Kbytes capacity.';
Canvas.TextOut(10, 10, S);
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 1:59 am Assunto:

Código:

function EncodeDate(Year, Month, Day: Word): TDateTime;
Retorna uma Data formada por Year, Month e Day
procedure TForm1.Button1Click(Sender: TObject);
var
MyDate: TDateTime;
begin
MyDate := EncodeDate(83, 12, 31);
Label1.Caption := DateToStr(MyDate);
end;

Código:

function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
Retorna a Hora formada por Hour, Min, Sec e MSec
procedure TForm1.Button1Click(Sender: TObject);
var
MyTime: TDateTime;
begin
MyTime := EncodeTime(0, 45, 45, 7);
Label1.Caption := TimeToStr(MyTime);
end;

Código:

function ExtractFileDir(const FileName: string): string;
Retorna o diretório adequado para ser passado para as funções CreateDir, GetCurrentDir, RemoveDir e SetCurrentDir.
O resultado da função é uma string vazia se FileName não contiver um drive e um caminho.

Código:

function ExtractFileDrive(const FileName: string): string;
Retorna uma string contendo o drive do path de um arquivo.

Código:

function ExtractFileExt(const FileName: string): string;
Retorna a extensão do arquivo FileName

Código:

function ExtractFileName(const FileName: string): string;
Retorna o nome do arquivo
Form1.Caption := 'Editing '+ ExtractFileName(FileName);

Código:

function ExtractFilePath(const FileName: string): string;
Retorna o Path de um arquivo
ChDir(ExtractFilePath(FileName));

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:00 am Assunto:

Código:

function FileAge(const FileName: string): Integer;
Retorna a data e a hora de um arquivo num valor que pode ser convertido para TDateTime através da função FileDateToDateTime. Retorna –1 se o arquivo não existir

Código:

function FileExists(const FileName: string): Boolean;
Retorna verdade se o arquivo existir
if FileExists(FileName) then
if MsgBox('Do you really want to delete ' + ExtractFileName(FileName)
+ '?'), []) = IDYes then DeleteFile(FileName);

Código:

function FileSize(var F): Integer;
Retorna o tamanho de um arquivo, para usar FileSize o arquivo deve esta aberto. Se o arquivo estiver vazio FileSize(F) retorna 0. F é uma variavel do tipo arquivo. FileSize não pode ser usada com arquivo texto
var
f: file of Byte;
size : Longint;
S: string;
y: integer;
begin
if OpenDialog1.Execute then begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
Seek(f,size div 2);
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
CloseFile(f);
end;
end;

Código:

procedure FillChar(var X; Count: Integer; value: Byte);
Preenche um vetor com determinado caracter. Value pode ser um byte ou char
var
S: array[0..79] of char;
begin
{ Set to all spaces }
FillChar(S, SizeOf(S), ' ');
end;

Código:

function FloatToStr(Value: Extended): string;
Converte um valor em ponto flutuante (real) para uma string

Código:

procedure ForceDirectories(Dir: string);
Cria multiplos diretórios de uma só vez
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\APPS\SALES\LOCAL';
ForceDirectories(Dir);
if DirectoryExists(Dir) then
Label1.Caption := Dir + ' was created'
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:02 am Assunto:

Código:

function FormatDateTime(const Format: string; DateTime: TDateTime): string;
Formata o valor DateTime usando o formato de Format.

Código:

function FormatFloat(const Format: string; Value: Extended): string;
Transforma um Float numa string usando a formatação contida em Format.

Código:

function Frac(X: Real): Real;
Retorna a parte fracional do parâmetro X
var
R: Real;
begin
R := Frac(123.456); { 0.456 }
R := Frac(-123.456); { -0.456 }
end;

Código:

function GetCurrentDir: string;
Retorna uma string contendo o diretório corrente

Código:

procedure GetDir(D: Byte; var S: string);
Rerorna o diretório corrente do driver especificado.
O onde D pode ser :
Value Drive
0 Corrente
1 A
2 B
3 C
var
s : string;
begin
GetDir(0,s); { 0 = Current drive }
MessageDlg('Current drive and directory: ' + s, mtInformation, [mbOk] , 0);
end;

Código:

procedure Inc(var X [ ; N: Longint ] );
Incrementa de uma ou N unidades o parâmetro X
var
IntVar: Integer;
LongintVar: Longint;
begin
Inc(IntVar); { IntVar := IntVar + 1 }
Inc(LongintVar, 5); { LongintVar := LongintVar + 5 }
end;

Código:

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;
Retorna Date acrescido ou decrescido de NumberOfMonths meses.

function InputBox(const ACaption, APrompt, ADefault: string): string;
Exibe uma Caixa de Entrada onde o usuário pode digitar uma string.
ACaption representa o título do Input Box e APrompt é o título do edit e ADefault representa o valor inicial do Edit.
uses Dialogs;
procedure TForm1.Button1Click(Sender: TObject);
var
InputString: string;
begin
InputString:= InputBox('Input Box', 'Prompt', 'Default string');
end;

function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
Semelhante ao InputBox, sendo que retorna True se o usuário fechou a O InputBox com OK e False se fechou com Cancel ou ESC. E Value armazena a string digitada.
procedure TForm1.Button1Click(Sender: TObject);
var
NewString: string;
ClickedOK: Boolean;
begin
NewString := 'Default String';
Label1.Caption := NewString;
ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
if ClickedOK then { NewString contains new input string }
Label1.Caption := 'The new string is ''' + NewString + '''';
end;

Código:

procedure Insert(Source: string; var S: string; Index: Integer);
Insere uma string em outra a partir da posição Index
var
S: string;
begin
S := 'Honest Lincoln';
Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:03 am Assunto:

Código:

function IntToHex(Value: Integer; Digits: Integer): string;
Converte o inteiro Value num Hexadecimal (Base 16). Digits indica o número mínimo de dígitos Hexa a serem retornados
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);
end;

Código:

function IntToStr(Value: Integer): string;
Trasnforma um Inteiro numa String
procedure TForm1.Button1Click(Sender: TObject);
var
Value: Integer;
begin
Value := 1234;
Edit1.Text := IntToStr(Value);
end;

Código:

function IsValidIdent(const Ident: string): Boolean;
Indica se um identificador é válido para o Pascal

Código:

function Length(S: string): Integer;
retorna o número de caracters usados na string S
var
S: string;
begin
S := 'The Black Knight';
Canvas.TextOut(10, 10, 'String Length = ' + IntToStr(Length(S)));
end;

Código:

function MaxIntValue(const Data: array of Integer): Integer;
Retorna o maior inteiro de um vetor

Código:

function MaxValue(const Data: array of Double): Double;
Retorna o maior valor de um vetor

Código:

function Mean(const Data: array of Double): Extended;
Retorna a média aritmética de um vetor

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:04 am Assunto:

Código:

function MessageDlg(const Msg: string; AType: TMsgDlgType;
AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;
Exibe uma Caixa de Mensagem e obtem uma resposta do usuário.

Código:

function MessageDlgPos(const Msg: string; AType: TMsgDlgType;
AButtons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word;
Semelhante a MessageDlg exceto por permitir indicar a posição na qual a janela será exibida
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlgPos('Are you there?',mtConfirmation, mbYesNoCancel, 0, 200, 200);
end;

Código:

function MinIntValue(const Data: array of Integer): Integer;
Retorna o menor inteiro do vetor

Código:

function MinValue(const Data: array of Double): Double;
Retorna o menor valor de um vetor

Código:

procedure MkDir(S: string);
Cria um novo diretório
uses Dialogs;
begin
{$I-}
{ Get directory name from TEdit control }
MkDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg('Cannot create directory', mtWarning, [mbOk], 0)
else
MessageDlg('New directory created', mtInformation, [mbOk], 0);
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:05 am Assunto:

Código:

function Now: TDateTime;
Retorna a data e a hora corrente
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'The date and time is ' + Str(Now);
end;

Código:

function Ord(X): Longint;
Retorna a ordem de um valor ordinal
uses Dialogs;
type
Colors = (RED,BLUE,GREEN);
var
S: string;
begin
S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10;
S := 'The ASCII code for "c" is ' + IntToStr(Ord('c')) + ' decimal';
MessageDlg(S, mtInformation, [mbOk], 0);
end;

Código:

function Pi: Extended;
Retorna o valor de PI
3.1415926535897932385.

Código:

function Pos(Substr: string; S: string): Integer;
Procura por uma sub-string numa string e retorna a posição da primeira ocorrência ou zero se não encontrou
var S: string;
begin
S := ' 123.5';
{ Convert spaces to zeroes }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end;

Código:

function Power(Base, Exponent: Extended): Extended;
Potência

Código:

function Pred(X);
Retorna o predecessor de um ordinal
uses Dialogs;
type
Colors = (RED,BLUE,GREEN);
var
S: string;
begin
S := 'The predecessor of 5 is ' + IntToStr(Pred(5)) + #13#10;
S := S + 'The successor of 10 is ' + IntToStr(Succ(10)) + #13#10;
if Succ(RED) = BLUE then
S := S + 'In the type Colors, RED is the predecessor of BLUE.';
MessageDlg(S, mtInformation, [mbOk], 0);
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:06 am Assunto:

Código:

function Random [ ( Range: Integer) ];
Retorna um valor Randômico
0 <= X < Range.
var
I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;

Código:

procedure Randomize;
Inicializa o modo Randomico
var
I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;

Código:

function RemoveDir(const Dir: string): Boolean;
Remove um diretório retornando True caso tenha conseguido e False caso contrário

Código:

procedure Rename(var F; Newname);
F is a variable of any file type. Newname is a string-type expression or an expression of type PChar
uses Dialogs;
var
f : file;
begin
OpenDialog1.Title := 'Choose a file... ';
if OpenDialog1.Execute then begin
SaveDialog1.Title := 'Rename to...';
if SaveDialog1.Execute then begin
AssignFile(f, OpenDialog1.FileName);
Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName + ' to ' +
SaveDialog1.FileName);
Rename(f, SaveDialog1.FileName);
end;
end;
end;

Código:

function RenameFile(const OldName, NewName: string): Boolean;
Renomeia arquivos e retorna o sucesso ou insucesso
The following code renames a file:
if not RenameFile('OLDNAME.TXT','NEWNAME.TXT') then
ErrorMsg('Error renaming file!');

Código:

procedure RmDir(S: string);
Remove um diretório
uses Dialogs;
begin
{$I-}
{ Get directory name from TEdit control }
RmDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0)
else
MessageDlg('Directory removed', mtInformation, [mbOk], 0);
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:08 am Assunto:

Código:

function Round(X: Extended): Longint;
Arredonda um número real

Código:

function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint):Boolean;
Exibe um Caixa de Dialogo para seleção de Diretório.

Código:

function SetCurrentDir(const Dir: string): Boolean;
Torna o Dir o diretório corrente e retorna o sucesso da operação

Código:

procedure SetLength(var S: string; NewLength: Integer);
Coloca um novo tamanho para uma string
S[0] := NewLength.

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:10 am Assunto:

Código:

procedure ShowMessage(const Msg: string);
Exibe uma mensagem ao usuário
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Push this button');
end;

Código:

function Sqr(X: Extended): Extended;
Retorna o quadrado de X

Código:

function Sqrt(X: Extended): Extended;
Retorna a raiz quadrada de X

Código:

function StrComp(Str1, Str2 : PChar): Integer;
Compara duas strings em case sensitivity
Return value Condition
<0 if Str1<Str2>0 if Str1 > Str2

Código:

function StringOfChar(Ch: Char; Count: Integer): string;
Retorna uma string contendo Count caracters Ch
S := StringOfChar('A', 10);
{sets S to the string 'AAAAAAAAAA'}

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:11 am Assunto:

Código:

function StrToDate(const S: string): TDateTime;
Converte uma string em data
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
begin
ADate := StrToDate(Edit1.Text);
Label1.Caption := DateToStr(ADate);
end;

Código:

function StrToDateTime(const S: string): TDateTime;
Converte uma string para o formato DateTime
procedure TForm1.Button1Click(Sender: TObject);
var
ADateAndTime: TDateTime;
begin
ADateAndTime := StrToDateTime(Edit1.Text);
Label1.Caption := DateTimeToStr(ADateAndTime);
end;

Código:

function StrToFloat(const S: string): Extended;
Converte uma string num Float

Código:

function StrToInt(const S: string): Integer;
Converte uma string num inteiro
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
I: Integer;
begin
S := '22467';
I := StrToInt(S);
Inc(I);
Edit1.Text := IntToStr(I);
end;

Voltar ao Topo

wandinhodelphiweb
Aprendiz

Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126

Enviada: Sáb Mai 02, 2009 2:12 am Assunto:

Código:

function StrToTime(const S: string): TDateTime;
Converte uma string em hora
procedure TForm1.Button1Click(Sender: TObject);
var
ATime: TDateTime;
begin
ATime := StrToTime(Edit1.Text);
Label1.Caption := TimeToStr(ATime);
end;

Código:

function Succ(X);
Retorna o sucessor de um ordinal
uses Dialogs;
type
Colors = (RED,BLUE,GREEN);
var
S: string;
begin
S := 'The predecessor of 5 is ' + IntToStr(Pred(5)) + #13#10;
S := S + 'The successor of 10 is ' + IntToStr(Succ(10)) + #13#10;
if Succ(RED) = BLUE then
S := S + 'In the type Colors, RED is the predecessor of BLUE.';
MessageDlg(S, mtInformation, [mbOk], 0);
end;

Código:

function Sum(const Data: array of Double): Extended register;
Calcula a soma de dos elementos de um vetor

Código:

function SumInt(const Data: array of Integer): Integer register;
Calcula a soma dos elementos de um vetor de inteiros

Código:

function Time: TDateTime;
Retorna a hora corrente
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'The time is ' + TimeToStr(Time);
end;

Código:

function TimeToStr(Time: TDateTime): string;
Converte hora para string
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := TimeToStr(Time);
end;

Código:

function Trim(const S: string): string;
Retira os espaços em brancos a esquerda e a direita da string S

Código:

function TrimLeft(const S: string): string;
Retira os espaços em brancos a esquerda da string S

Código:

function TrimRight(const S: string): string;
Retira os espaços em brancos a direita da string S

Código:

function Trunc(X: Extended): Longint;
Retorna a parte inteira de um número

Código:

function UpCase(Ch: Char): Char;
Converte o caracter Ch em maiúscula
uses Dialogs;
var
s : string;
i : Integer;
begin
{ Get string from TEdit control }
s := Edit1.Text;
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
MessageDlg('Here it is in all uppercase: ' + s, mtInformation, [mbOk], 0);
end;

Código:

function UpperCase(const S: string): string;
Converte a string S em maiúsculas
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ListBox1.Items.Count -1 do
ListBox1.Items[I] := UpperCase(ListBox1.Items[I]);
end;

Voltar ao Topo

Mostrar os tópicos anteriores:

	ActiveDelphi - Índice do Fórum -> Delphi	Todos os horários são GMT - 3 Horas Ir à página 1, 2 Próximo
Página 1 de 2

Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.