6 replies to this topic

[enecumene]

Pues esi, ¿qué función se utiliza para obtener los primeros ó últimos caracteres de una cadena?, por ejemplo:

Los primeros 3 caracteres de Delphiaccess:

"Del"

Los últimos 3 caracteres de Delphiaccess:

"ess"

Saludos.

[felipe]

Pues me imagino que igual que la Copy y asi parecidas...
ahi perdonas pero se me olvidaron las demas 

[FGarcia]

Unit StrUtils

MidStr(Str,inicio,cuantos);
RightStr(str,cuantos);
LeftStr(str,Cuantos);


Y algunas mas..que aun no conosco.

[enecumene]

Muchas gracias FGarcí­a y las habí­a conseguido pues no me acordaba de ellos

Los primeros 3:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var algo: string;
begin
algo := leftstr('Delphiaccess',3);
ShowMessage(algo);
end;

Los últimos 3:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var algo: string;
begin
algo := rightstr('Delphiaccess',3);
ShowMessage(algo);
end;

Saludos.

[felipe]

Unit StrUtils

MidStr(Str,inicio,cuantos);
RightStr(str,cuantos);
LeftStr(str,Cuantos);


Y algunas mas..que aun no conosco.

Esas eran 

[egostar]

MidStr(Str,inicio,cuantos);

Curiosa función

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(MidStr('DelphiAccess',3,3)+' ¿¿¿ = ??? '+Copy('DelphiAccess',3,3));
end;

Hay algo que no vea a simple vista?  8-)

Salud OS

[seoane]

Hay algo que no vea a simple vista?  8-)

Pues yo tampoco veo nada 

delphi

function MidStr(const AText: AnsiString; const AStart, ACount: Integer): AnsiString; overload;
begin
  Result := Copy(WideString(AText), AStart, ACount);
end;

[/code]