AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TList + Exception

Ein Thema von Preddy2005 · begonnen am 9. Sep 2006 · letzter Beitrag vom 9. Sep 2006
Antwort Antwort
bttb930

Registriert seit: 6. Okt 2003
372 Beiträge
 
#1

Re: TList + Exception

  Alt 9. Sep 2006, 22:40
So würde ich das machen:

Delphi-Quellcode:
type
  TBenutzer = class
  private
    FName: string;
    FNummer: Integer;
  public
    constructor: Create(const aString: string);
    property Name: string read FName;
    property Nummer: Integer read FNummer;
  end;

  TBenutzerListe = class
  private
    List: TList;
  public
    constructor Create;
    destructor Destroy;
    procedure Initialize(const ABenutzerListe: string);
    function GetBenutzer(I: Integer): TBenutzer;
    function GetCount: Integer;

    property Benutzer[i: Integer]: TBenutzer read GetBenutzer; default;
    property Count: Integer read GetCount;
  end;

  constructor TBenutzer.Create(const aString: string);
  begin
    FName := Copy(aString, 1, Pos(',', aString)-1);
    FNummer := StrToInt(Copy(aString, Pos(',', aString)+1, Length(aString)));
  end;

  constructor TBenutzerListe.Create;
  begin
    inherited;
    List := TList.Create;
  end;

  destrucotr TBenutzerListe.Destroy;
  begin
    inherited;
    List.Free;
  end;
 
  function TBenutzerListe.GetBenutzer(I: Integer): TBenutzer;
  begin
    Result := List[i] as TBenutzer;
  end;

  function TBenutzerListe.GetCount: Integer;
  begin
    Result := List.Count;
  end;

  procedure TBenutzerListe.Initialize(const ABenutzerliste: string);
  var
    temp: TStringList;
    i: Integer;
  begin
    temp := TStringList.Create;
    try
      temp.Text := ABenutzerListe;
      for i := 0 to temp.Count-1 do
        List.Add(TBenutzer.Create(temp[i]));
    finally
      temp.Free;
    end;
  end;
  

procedure FormButton1Click(Sender: TObject);
var
  BenutzerListe: TBenutzerListe;
  i: Integer;
begin
  BenutzerListe := TBenutzerListe.Create;
  BenutzerListe.Initialize(MeineBenutzerListe);
  for i := 0 to BenutzerListe.Count-1 do
    Memo.Lines.Add(Format('%s -> %d', (BenutzerListe[i].Name, BenutzerListe[i].Nummer]));
end;
Irgendwie so. Memo ist natürlich ein Memo-Feld auf dem Form. Woher MeineBenutzerListe kommt weiß ich nicht genau - die hast Du ja.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz