Anónimo
Como copiar las tres primeras letras
Hola
Lo que necesito en saber como copiar las primera tres letras de un dbedit a otro
Lo que me pasa es que estoy realizando un proyecto en la universidad y deseo que el campo matricula contenga las tres primeras letras de del nombre del estudiante.
Gracia de antemano
Lo que necesito en saber como copiar las primera tres letras de un dbedit a otro
Lo que me pasa es que estoy realizando un proyecto en la universidad y deseo que el campo matricula contenga las tres primeras letras de del nombre del estudiante.
Gracia de antemano
1 Respuesta
Respuesta de adeszeus
1
Utiliza las Fusiones RightStr o alguna de estas
function RightStr
(Const Str: String; Size: Word): String;
begin
if Size > Length(Str) then Size := Length(Str) ;
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
(Const Str: String; From, Size: Word): String;
begin
MidStr := Copy(Str, From, Size)
end;
function LeftStr
(Const Str: String; Size: Word): String;
begin
LeftStr := Copy(Str, 1, Size)
end;
La manera de llamarlas es la siguiente
Dato:=rightstr(dbedit1.text, 3); y asi cada una de ellas
function RightStr
(Const Str: String; Size: Word): String;
begin
if Size > Length(Str) then Size := Length(Str) ;
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
(Const Str: String; From, Size: Word): String;
begin
MidStr := Copy(Str, From, Size)
end;
function LeftStr
(Const Str: String; Size: Word): String;
begin
LeftStr := Copy(Str, 1, Size)
end;
La manera de llamarlas es la siguiente
Dato:=rightstr(dbedit1.text, 3); y asi cada una de ellas