Practica de arrays

[ecfisa]

Hola Lepuke.

Empezado por Lepuke

...
Iba todo bien haciendolo solo , hasta que me aparecieron dos errores que no se como resolver.

En la linea

Código Delphi [-]
 clean_array(datos);

me devuelve este error :

Eso es por que la función clean_array espera como argumento un valor de tipo: otro_array y le estas enviando uno de tipo: array [1 .. 5] of string.

Empezado por Lepuke

En la linea

Código Delphi [-]
clean_array(arrays);

me devuelve este error :

La misma situación... Se espera un tipo: otro_array y le estas enviando un tipo: array of string.

No sé que es lo que estas buscando específicamente, pero te pongo un ejemplo de como podes pasar tu tipo (en este caso un arreglo dinámico) tanto por valor como por referencia.

Código Delphi [-]
...
type
  TDynArrayStr = array of string;

procedure InitDynArray(var Dyn: TDynArrayStr);
const
  CSTR : array[1..5] of string = ('st1', 'st2', 'st3', 'st4', 'st5');
begin
  SetLength(Dyn, Length(CSTR));
  Move(CSTR, Dyn[0], Length(CSTR)*SizeOf(string));
end;

procedure CleanDynArray(var Dyn: TDynArrayStr);
var
  l: Integer;
begin
  l := Length(Dyn);
  Finalize(Dyn);
  SetLength(Dyn, l);
end;

function NumberDynArray(Dyn: TDynArrayStr): TDynArrayStr;
var
  i: Integer;
begin
  SetLength(Result, Length(Dyn));
  for i := Low(Dyn) to High(Dyn) do
    Result[i] := Format('%d) %s',[i, Dyn[i]]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  v: TDynArrayStr;
  i: Integer;
begin
  CleanDynArray(v);
  InitDynArray(v);
  v:= NumberDynArray(v);
  
  for i := Low(v) to High(v) do
    ListBox1.Items.Add(v[i]);

  v := nil;
end;

Saludos

[JuanOrtega]

gracias por la ayuda ecfisa , lo que estoy haciendo es limpiar repetidos en arrays of string , el codigo que tengo hasta ahora es este :

Código Delphi [-]
type
  otro_array = array of string;

function clean_array(const array1: array of string): otro_array;
var
  array_limpio: otro_array;
  i: integer;
  i2: integer;
begin
  For i := Low(array1) to High(array1) do
  begin
    For i2 := Low(array_limpio) to High(array_limpio) do
    begin
      if (array_limpio[i2] = array1[i]) then
      begin
        SetLength(array_limpio, Length(array_limpio) + 1);
        array_limpio[Length(array_limpio)] := array1[i];
      end
    end;
  end;
  Result := array_limpio;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  datos: array [1 .. 5] of string = ('test1', 'test2', 'test3',
    'test4', 'test5');
var
  arrays: Array Of String;
  array_limpio: otro_array;
  i: integer;
begin

  SetLength(arrays, 5);

  arrays[0] := 'test1';
  arrays[1] := 'test2';
  arrays[2] := 'test1';
  arrays[3] := 'test4';
  arrays[4] := 'test1';

  array_limpio := clean_array(arrays);
  // clean_array(arrays);

  For i := Low(array_limpio) to High(array_limpio) do
  begin
    ShowMessage(array_limpio[i]);
  end;

Creo que pense el tema muy mal porque mi funcion clean_array() no devuelve ni detecta nada , ¿ que hice mal ?

[ecfisa]

Empezado por Lepuke

gracias por la ayuda ecfisa , lo que estoy haciendo es limpiar repetidos en arrays of string ...

Intentalo al modo de este ejemplo:

Código Delphi [-]
type
  otro_array = array of string;

function clean_array(const v: array of string): otro_array;
var
  i,j: integer;
  sw : Boolean;
begin
  for i := Low(v) to High(v) do
  begin
    sw := False;
    for j := i+1 to High(v) do
      if v[i] = v[j] then sw := True;
    if not sw then
    begin
      SetLength(Result, Length(Result)+1);
      Result[High(Result)] := v[i];
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  arrays: array of string;
  array_limpio: otro_array;
  i: integer;
begin
  SetLength(arrays, 5);
  arrays[0] := 'cad1';
  arrays[1] := 'cad2';
  arrays[2] := 'cad1';
  arrays[3] := 'cad4';
  arrays[4] := 'cad1';

  ListBox1.Items.Add('Todos los elementos');
  ListBox1.Items.Add('---------------------------');
  for i:= Low(arrays) to High(arrays) do
    ListBox1.Items.Add(arrays[i]);
  ListBox1.Items.Add('');
  
  ListBox1.Items.Add('Quitando los repetidos');
  ListBox1.Items.Add('---------------------------');
  array_limpio := clean_array(arrays);
  for i := Low(array_limpio) to High(array_limpio) do
    ListBox1.Items.Add(array_limpio[i])

  Finalize(arrays);
  Finalize(array_limpio);
end;

Saludos

[JuanOrtega]

gracias por siempre ayudarme ecfisa , tu codigo funciona perfecto , una pregunta , ¿ porque los repetidos siempre terminan al final de array ? , te lo pregunto porque no veo el porque.

[ecfisa]

Hola Lepuke.

Empezado por Lepuke

...
¿ porque los repetidos siempre terminan al final de array ? , te lo pregunto porque no veo el porque.

Surge de la lógica con que implementé la función clean_array. Si le realizas una prueba de escritorio enseguida vas a notar el por que.

Saludos

[JuanOrtega]

Ok , gracias por la ayuda ecfisa.