En opgave angående EditMask

var
  TempStr : string;
begin
  TempStr := copy(MaskEdit1.Text,2,length(maskedit1.Text));
  MaskEdit1.Text := UpperCase(MaskEdit1.Text[1]) + TempStr;
end;

// Jonat.

Hej

Nu skal det være via an EditMask og ikke veat kopiere en streng og lave den til uppercase.

Det tror jeg ikke man kan...... den kode skal ligges ind i Maskedit.change......

Jeg tror ihvertfald ikke at man kan sætte en properties til at lave stort forbokstav.....


// Jonat.

joda jonas det kan lade sig gøre.....

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;

Hmmm... er det ikke en del mere indviklet kode end mit forslag???


// Jonat :)

og så hedder jeg Jonatan :D

// Jonat....

dit forslag bytter om på bogstaverne og laver dem alle uppercase...

sorry stavefejlen jonat men jeg glemte der var ingen stave funktion gg

Det er iorden :D.......

Min den bytter da ikke om på bogstaverne???? Den tager det første bogstav og laver stort.....

// Jonat.

Ups... nu forstår jeg..... Du har ret den bytter om hvis den kører under change. Men kører men den som en funktion bagefter at ordet er skrevet, så gør den det rigtigt.....

// Jonat.

Det må da være nemmere at sætte EditMask til det rigtige f.eks:
'>c<>ccccccccc;0'
Så kører det hele da af sig selv.

Hej Anton

Det var det som jeg søgte