Aktív témák

• #4 _thomas_ tag KovacsUr #3

  2004-09-07 15:42:28 #4

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  _thomas_

  tag

  válasz KovacsUr #3 üzenetére

  pontosan erre gondoltam!!
  
  tökéletesen működik:)
  _nagyon_ köszönöm!
  
  üdv.
  _thomas_

• #2 _thomas_ tag

  2004-09-06 22:07:39 #2

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  _thomas_

  tag

  up!

• #1 _thomas_ tag

  2004-09-06 21:36:11 #1

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  _thomas_

  tag

  hi!
  
  tehát adott egy saját fejlesztésű osztály (a TObject a közvetlen őse), egy objektuma.
  hogyan menthetem el a vinyóra, hogy később vissza tudjam tölteni és módosítani az tulajdonságait?
  
  konkrétan:
  {alul látható az osztály, az ebből létrehozott objektumot szeretném a vinyóra menteni JAVA-ban ezt a serializable interface-el lehetett megtenni. itt hogyan lehetne? most térek át javaról delphire és sokminden máshogy vagy mint amit eddig megszoktam, ami nem is baj, csak nagyon kellene tudnom ezt műveletet}
  unit Pilot;
  
  interface
  
  uses Graphics;
  
  type TPilot=class
  private
  name : string;
  pole : byte;
  year : byte;
  team : string;
  image : TPicture;
  public
  function getName() : string;
  procedure setName(new : string);
  function getPole() : byte;
  procedure setPole(how : byte);
  function getYear() : byte;
  procedure setYear(new : byte);
  function getTeam() : string;
  procedure setTeam(aTeam : string);
  procedure setImage(newImage : TPicture);
  function getImage() : TPicture;
  published
  constructor create(name : string);
  constructor createFull(name : string;team : string;
  year : byte;pole : byte;image : TPicture);
  property driver_name : string read name write setName;
  end;
  
  implementation
  
  uses sysutils;
  constructor TPilot.create(name : string);
  begin
  self.name := name;
  end;
  
  constructor TPilot.createFull(name : string;team : string;
  year : byte;pole : byte;image : TPicture);
  begin
  self.name := name;
  self.team := team;
  self.year := year;
  self.pole := pole;
  self.image := TPicture.Create;
  end;
  
  
  function TPilot.getName() : string;
  begin
  getName := name;
  end;
  
  procedure TPilot.setName(new : string);
  begin
  name := new;
  end;
  
  function TPilot.getPole() : byte;
  begin
  getPole := pole;
  end;
  
  procedure TPilot.setPole(how : byte);
  begin
  self.pole := how;
  end;
  
  function TPilot.getYear(): byte;
  begin
  getYear := year;
  end;
  
  procedure TPilot.setYear(new : byte);
  begin
  self.year := new;
  end;
  
  function TPilot.getTeam(): string;
  begin
  getTeam := team;
  end;
  
  procedure TPilot.setTeam(aTeam : string);
  begin
  team := aTeam;
  end;
  
  procedure TPilot.setImage(newImage : TPicture);
  begin
  image := newImage;
  end;
  
  function TPilot.getImage() : TPicture;
  begin
  getImage := image;
  end;
  end.
  
  köszönöm a hsz-eket!
  

Aktív témák