Pascal/Turbo Pascal - funcion delete

 
Vista:

funcion delete

Publicado por rodrigo sanchez (1 intervención) el 03/05/2007 07:02:34
holaaa alguieen me prodria ayudaar... no entiendo como usar la funcion delete..

Función Delete : Borra o elimina una subcadena de una cadena. Una subcadena es una cadena contenida dentro de otra de mayor longitud. La sintaxis es:

Delete (cadena,posición,número)

Cadena : Representa la cadena original o fuente

Posición : Representa la posición del primer carácter a suprimir

Número: Es la cantidad de caracteres que se borrarán (debe ser un valor entero)

supongamos.. cadenaa si se q es osea mi tipo de variable (string..) pero lo q es cadena y posicion no tenia ni la mas remoraa ideaa.. o a lo mejor sii pero estoy condundioo si alguieen me lo puede explicaar de otra maneraa seria muy ultiil muchas grax.!!
rOo!!*
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:funcion delete

Publicado por Diego Romero (996 intervenciones) el 03/05/2007 14:01:43
A ver...

Delete(Cadena, Pos, Cant);

donde "Cadena" es de tipo string y "Pos" y "Cant" de tipo integer. Borra en Cadena comenzando en la posición Pos tantos caracteres como diga Cant.

O sea que si tenemos por ejemplo la cadena "abcdefghijk"...

S:='abcdefghijk';
Delete(S,3,5);

S ahora valdrá "abhijk".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:funcion delete

Publicado por ramiro (2 intervenciones) el 30/05/2011 01:05:26
hola tengo una duda si yo ingreso una frase y quiero borrar solo los espacios en blanco como lo hago con la funcion delete??
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:funcion delete

Publicado por ramon (2128 intervenciones) el 30/05/2011 19:01:29
{Ejemplo de borrado de blancos en una cadena}
{te borrara todos los blancos de la cadena entrada como cad}
{mira cadena entrada sera [ Ángel tenia una motocicleta y se rompió] te quedara}
{ [ Ángelteniaunamotocicletayserompió] asín}

program borrado;
uses
crt;
var
cadena : string;
i : integer;

procedure borra_blancos(cad : string);
begin
for i := 1 to length(cad) do
begin
if cad[i] = ' ' then
delete(cad,i,1);
end;
writeln(cad);
end;


begin
clrscr;
cadena := [ Ángel tenia una motocicleta y se rompió]'';
writeln(cadena);
borra_blancos(cadena);
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:funcion delete

Publicado por ramiro (2 intervenciones) el 10/06/2011 02:11:19
Hola de nuevo...ahora tengo otro problema para que me ayuden ahora es con vectores

quisiera saber el algoritmo de:

dado un vector (A) con 10 elementos generar un vertor (B) con los mismos elementos del arreglo (A)

pero en orden inverso.

luego imprimir los vectores (A) y (B).

desde ya muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:funcion delete

Publicado por ramon (2128 intervenciones) el 11/06/2011 01:00:41
{ Espero re refieras a esto }

program vector;
uses
crt;
var
i, t : integer;
vector_a : array[1..10] of integer;
vector_b : array[1..10] of integer;

procedure crea_vector_a;
begin
randomize;
for i := 1 to 10 do
vector_a[i] := Random(6);
end;

procedure copya_vector_a;
begin
i := 1;
t := 10;
repeat
vector_b[t] := vector_a[i];
i := i + 1;
t := t - 1;
until i > 10;
end;

procedure presenta_vectores_a_b;
begin
crea_vector_a;
copya_vector_a;
for t := 1 to 10 do
write(' ',vector_a[t]);
writeln;
writeln;
for i := 1 to 10 do
write(' ',vector_b[i]);
end;

begin
clrscr;
textcolor(15);
presenta_vectores_a_b;
writeln;
writeln;
writeln(' Pulsa Enter....');
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar