Thema: Delphi EditMask Zugriff

Einzelnen Beitrag anzeigen

100nF

Registriert seit: 7. Nov 2004
639 Beiträge
 
#6

Re: EditMask Zugriff

  Alt 17. Mai 2005, 16:44
falls du den text brauchst, der an einer bestimmten position ist, hier habe ich ein bisschen code geschrieben:
Delphi-Quellcode:
function findtext(s: string; position: integer): string;
begin
  result := '';
  delete(s, 1, position*3-3);
  delete(s, 3, length(s));
  result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(findtext(maskedit1.Text,10));
end;
wenn der text im maskedit z.B. "11 22 33 44 55 66 77 88 99 00" heisst, und position auf 5, ist das resultat "55". position 1 ist das erste zweiergrüppchen, position 2 das zweite usw...

ich hoffe geholfen zu haben

gruss
urbanbruhin
  Mit Zitat antworten Zitat