No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Left, Mid, Right para los de Visual Basic.

delphi

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;

Ejemplo de Uso:

delphi

{	
	Dstr := 'DelphiAccess es lo Mejor', then
 
	LeftStr(Dstr, 5) := 'Delph'
	MidStr(Dstr, 14, 5) := 'es lo '
	RightStr(Dstr, 5) := 'Mejor'
	}

Saludos!