Tips (1541)

Tip Rating (6):

{
  Converts the first letter of an EditBox to UpperCase:

  Wandelte jeweils das erste Zeichen in einer Editbox in
  einen Grossbuchstaben um.
}

procedure TForm1.Edit1Change(Sender: TObject);
var
  OldStart: Integer;
begin
  with Edit1 do
    if Text <> '' then
    begin
      OnChange  := nil;
      OldStart  := SelStart;
      Selstart  := 0;
      Sellength := 1;
      Seltext   := AnsiUpperCase(Text[1]);
      SelStart  := OldStart;
      OnChange  := Edit1Change;
    end;
end;


{
 To convert the fist three letters to uppercase you could write:
 Um die ersten drei Zeichen jeweils in Grossbuchstaben anzuzeigen:
}

 Selstart := 0;
 SelLength := 3;
 SelText := AnsiUpperCase(Copy(Text, 1, 3));