Arreglo bi-tri dimensional a partir de un String

[[egostar]]

Hola amigos

Pues bien, quiero hacer una funcion que me permita obtener a partir de un string un arreglo de enteros de esta forma:

'357,112' --> (357,112)
'672,464' --> (672,464)
'84,176,20' --> (84,176,20)
'89,176,20' --> (89,176,20)
'672,176,20' --> (672,176,20)

Lo que quiero hacer es tener una clase o una variable que pueda acceder de esta forma:

'357,112' --> (357,112) --> Dato1

Dato1.X, Dato1.Y

'672,176,20' --> (672,176,20) --> Dato2

Dato2.X, Dato2.Y, Dato2.Z

Espero haber sido lo suficientemente claro.

Salud OS

[[egostar]]

Creo que ni yo me entendi a lo que pregunte.....

Lo que necesito es pasar el dato String a una variable que sea un arreglo y que pueda acceder a los valores como si fueran coordenadas (X,Y)

Salud OS

[[eduarcol]]

a ver si entendi:

Código Delphi [-]
unit Unit3;

interface

uses
   sysutils;

type
   TDato = Class(TObject)
      x: Integer;
      y: Integer;
      z: Integer;
      procedure Cargar(cValor: String);
   end;

implementation

procedure TDato.Cargar(cValor: String);
begin
   x := StrtoIntDef(Copy(cValor, 1, Pos(',', cValor) - 1));
   cValor := Copy(cValor, Pos(',', cValor) + 1, Length(cValor));
   y := StrtoIntDef(Copy(cValor, 1, Pos(',', cValor) - 1));
   cValor := Copy(cValor, Pos(',', cValor) + 1, Length(cValor));
   z := StrtoIntDef(Copy(cValor, 1, Length(cValor));
end;

end.

[[cHackAll]]

Código Delphi [-]
type
 TEgostar = class(TStringList)
 private
  function GetPoint(Index: Integer): TPoint;
  function GetLines(Index: Integer): Integer;
  function GetCaption(Index: Integer): string;
 protected
  property Point[Index: Integer]: TPoint read GetPoint;
  property Lines[Index: Integer]: Integer read GetLines;
  property Caption[Index: Integer]: string read GetCaption;
 end;
 
implementation

function TEgostar.GetPoint(Index: Integer): TPoint;
var S: string;
begin
 S := Copy(Strings[Index], Pos('=', Strings[Index]) + 1, 255);
 Result.X := StrToInt(Copy(S, 1, Pos(',', S) - 1));
 System.Delete(S, 1, Pos(',', S));
 if Pos(',', S) = 0 then
  Result.Y := StrToInt(S)
 else
  Result.Y := StrToInt(Copy(S, Pos(',', S) + 1, 255));
end;
 
function TEgostar.GetLines(Index: Integer): Integer;
var S: string;
begin
 S := Strings[Index];
 System.Delete(S, 1, Pos(',', S));
 if Pos(',', S) = 0 then
  Result := -1
 else
  Result := StrToInt(Copy(S, Pos(',', S) + 1, 255));
end;
 
function TEgostar.GetCaption(Index: Integer): string;
begin
 Result := Copy(Strings[Index], 1, Pos('=', Strings[Index]) - 1)
end;

Prueba;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var e: TEgostar; i: Integer;
begin
 ListBox1.Clear;
 e := TEgostar.Create;
 e.LoadFromFile('xxx.txt');
 for i := 0 to e.Count - 1 do
  ListBox1.AddItem(e.Caption[i] + ' - ' + IntToStr(e.Point[i].X) + ':' + IntToStr(e.Point[i].Y) + ' (' + IntToStr(e.Lines[i]) + ')', nil);
 e.Destroy;
end;

[[egostar]]

Muchas gracias amigos, ya estoy haciendo las pruebas, son geniales

Salud OS

[[Al González]]

¡Hola Eliseo!

Gracias por el refresco del otro día en tu oficina.

Que bueno que ya hay varias buenas respuestas de los compañeros. Tengo curiosidad por conocer la razón de esto que buscas, para tener más claro el objetivo y, de ser posible, tratar de ayudar.

Saludos.

Al.