Foros Club Delphi - Ver Mensaje Individual - Arreglo bi-tri dimensional a partir de un String

[eduarcol] · #3 17-03-2008

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.