duda sobre funcion split
Publicado por anita (2 intervenciones) el 09/05/2006 13:08:10
Hola a todos a ver si me podeis ayudar con una duda que tengo.
Tengo que hacer una practica sobre el sudoku, y el profesor nos ha dado algunas pistas. EL tablero incompleto lo leemos desde un fichero de texto, colocado asi:
5,3,6,9,0,0,0,7,2
0,1,7,0,0,9,4,3,0
...........................
Donde los ceros equivalen a los espacios que hay que rellenar. Nos ha dado la funcion split para que leamos del fichero linea a linea y la funcion lo transforme en un array, la implementacion es esta:
Type Matriz = Array of Integer;
function DelphiSplit (const s: string; SepChr: Char) : Matriz;
var
SLista: TStringList;
Arreglo: Matriz;
Indice: Integer;
valor : Integer;
begin
SLista := TStringList.Create;
SLista.Delimiter := SepChr; // el separador que uses
SLista.DelimitedText := s; // la cadena a partir
SetLength(Arreglo, SLista.Count);
for Indice := 0 to Pred(SLista.Count) do
Val(SLista[Indice],Arreglo[Indice],valor);
SLista.Free; result := Arreglo;
end;
La duda es cuales son los parametros que tengo que enviar al hacer la llamada a la funcion, ya que el primero es una constante, y el segundo no lo entiendo.
Gracias por adelantado!!!
Tengo que hacer una practica sobre el sudoku, y el profesor nos ha dado algunas pistas. EL tablero incompleto lo leemos desde un fichero de texto, colocado asi:
5,3,6,9,0,0,0,7,2
0,1,7,0,0,9,4,3,0
...........................
Donde los ceros equivalen a los espacios que hay que rellenar. Nos ha dado la funcion split para que leamos del fichero linea a linea y la funcion lo transforme en un array, la implementacion es esta:
Type Matriz = Array of Integer;
function DelphiSplit (const s: string; SepChr: Char) : Matriz;
var
SLista: TStringList;
Arreglo: Matriz;
Indice: Integer;
valor : Integer;
begin
SLista := TStringList.Create;
SLista.Delimiter := SepChr; // el separador que uses
SLista.DelimitedText := s; // la cadena a partir
SetLength(Arreglo, SLista.Count);
for Indice := 0 to Pred(SLista.Count) do
Val(SLista[Indice],Arreglo[Indice],valor);
SLista.Free; result := Arreglo;
end;
La duda es cuales son los parametros que tengo que enviar al hacer la llamada a la funcion, ya que el primero es una constante, y el segundo no lo entiendo.
Gracias por adelantado!!!
Valora esta pregunta
0