A volte c’è bisogno di formattare il testo per una maggiore chiarezza o semplicemente per rendere più piacevole e meno scontato un determinato testo. In questo articolo vi proponiamo alcune righe di codice di dephi che ci permetteranno di poter vedere scritta in maiuscolo solamente il primo carattere di un Tedit, senza dover modificare noi stessi continuamente il primo carattere. Qui sotto vi riportiamo il codice da inserire nel proprio programma:

procedure TForm1.Edit1Change(Sender: TObject);
var Cursor:Integer;
begin
if Edit1.Text <> '' then
begin
Cursor:=Edit1.SelStart;
Edit1.Text := UpperCase(Copy(Edit1.Text,1,1)) +
LowerCase(Copy(Edit1.Text,2,Length(Edit1.Text)));
Edit1.SelStart := Cursor;
end;
end;


Come potete vedere il codice è molto semplice e non necessita di particolari spiegazioni, poiché anche la sua funzione primaria è molto semplice, deve infatti solamente scrivere in maiuscolo il primo carattere….