AGB  ·  Datenschutz  ·  Impressum  







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

Array neue Function zuweisen

Ein Thema von Sascha_OW · begonnen am 1. Mär 2006 · letzter Beitrag vom 1. Mär 2006
Antwort Antwort
Benutzerbild von JasonDX
JasonDX
(CodeLib-Manager)

Registriert seit: 5. Aug 2004
Ort: München
1.062 Beiträge
 
#1

Re: Array neue Function zuweisen

  Alt 1. Mär 2006, 11:29
Zitat von Sascha_OW:
aber in einer TList kann man da nicht nur StringsSpeichern, dann hat man bei integern immer das nervige Strtoint
StrToInt wirst du nie verwenden müssen, wenn du keine Strings darin Speicherst
In TList werden lediglich Pointer gespeichert. Wenn du dies ändern möchtest, kannst du die Klasse ableiten und die Benötigten Funktionen überschreiben:
Delphi-Quellcode:
TMyIntegerList = class(TList)
protected
  function Get(Index: Integer): Integer;
  procedure Put(Index: Integer; Item: Integer);
public
  function Add(Item: Integer): Integer;
  function IndexOf(Item: Integer): Integer;
  procedure Insert(Index: Integer; Item: Integer);
  function Remove(Item: Integer): Integer;
  property Items[Index: Integer]: Integer read Get write Put; default;
end;

//...

function TMyIntegerList.Get(Index: Integer): Integer;
begin
  result := Integer(inherited Get(Index));
end;
Nachdem das ganze ziemlich nur aus inherited-Aufrufen und Typecasts besteht haste mit wenig Schreibarbeit deine eigene Liste mit relativ hoher Funktionalität.

greetz
Mike
Mike
Passion is no replacement for reason
  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 06:34 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-2025 by Thomas Breitkreuz