Struktur einer Class

[Desmulator]

Hallo,
ich schreibe an einer eigenen classe, jedoch bin ich atm etwas rat los...

also meine class:

Delphi-Quellcode:

unit MyClass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdHTTP;


const
  Host = '';
  Port = '';

type
  GameList = string;
  GameItem = string;
  Game = array of string;
  Games = array of GameItem;
  THack = class(TObject)
    HTTP: TIdHTTP;
    function GetGameList(): GameList;
    function AnalysGameList(List:GameList): Games;
    function GetGameNames(List:GameList): string;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

function THack.GetGameList(): GameList;
var
  list: GameList;
begin
  //laden der GameList vom Server
  try
    list := HTTP.Get(Host + '/server/login.php?action=list');
  except
    list := 'Error: IdHTTP - Fehler';
  end;
    Result := list;
end;

function THack.AnalysGameList(List:GameList): Games;
var
  item: GameItem;
  items: Games;
  I: integer;
begin
  //liest die Spiellieste aus und gibt alle spile in einer array zurück
  I := 0;
  while Pos(#13#10,List) <> 0 do
  begin
    item := copy(List,0,Pos(#13#10,List));
    if not ( item = 'BOF' ) OR not ( item = 'EOF' ) then
    begin
      items[I] := item;
      List := copy(List,Pos(#13#10,List),Length(List));
      I := I + 1;
    end;

  end;

  Result := items;

end;

function THack.GetGameNames(List: GameList): string;
var
  I: integer;
  item: GameItem;
  items: string;
begin
  //liest die Spiellieste aus und gibt alle spile in einem string zurück
  I := 0;
  while Pos(#13#10,List) <> 0 do
  begin
    item := copy(List,0,Pos(#13#10,List));
    if not ( item = 'BOF' ) OR not ( item = 'EOF' ) then
    begin
      items := items + item + #13#10;
      List := copy(List,Pos(#13#10,List),Length(List));
      I := I + 1;
    end;

  end;

  Result := items;

end;

end.

wie ihr seht, werden in der kallse neue variablen typen deklariert ( Game, GameList uws... ) wie kann ich die in der HauptForm nutzen, bzw, wo müssen wie stehen, damit es functioniert. auserdem wie kann ich die functionen benutzen?

Desmulator

[edit=Phoenix]Sorry, aber das überflüssige c im Titel in Struktur hat echt wehgetan. Mfg, Phoenix[/edit]

[mkinzler]

Die Implementierung weicht vom Interface ab, entweder du nennst die klasse überall TBlubb oder THack.
Um die Klasse verwenden zu können musst du eine Instanz erzeugen; entweder global/lokal in der Unit oder als Member deiner Form-Klasse.

[Desmulator]

Zitat:

Die Implementierung weicht vom Interface ab, entweder du nennst die klasse überall TBlubb oder THack.

Oh, das war ncoh ein überrest eines testes... Ich habs editiert...

Zitat:

Um die Klasse verwenden zu können musst du eine Instanz erzeugen; entweder global/lokal in der Unit oder als Member deiner Form-Klasse.

Leider bin ich noch ein ziemlicher noob, in sachen classen schreiben, kannst du mir das anhand eines beispiels zeigen? kann auch nur ein link sein...

[shmia]

Anstatt dich selber mit Stringverarbeitung zu quälen, würde ich dir empfehlen, die "Gamelists" als INI-Dateien bereitzustellen und mit Hilfe der Klasse TIniFile auszuwerten.
Profis würden eine XML-Datei anstelle der INI-Datei verwenden; aber das ist nichts für Beginner.

[mkinzler]

Einfach in der Deklaration der Form

Delphi-Quellcode:

 Hack: THack;

einfügen

und im onCreate

Delphi-Quellcode:

   Hack := THack.Create;

aufrufen

[Desmulator]

leider kommt die datei von einem server, der nicht mir gehört, ich schreibe nur ein tool, daher kann ich die formatierung der serverausgabe nicht in die einer ini ändern...

EDIT: O.K. jetzt geht alles, aber warum muss ich das bei denn anderen unit's, welche ja auch classen enthalten nicht machen? und wie kann ich eine datei über idHTTP anfordern, aber kein formular habe?

[shmia]

Zitat:

Zitat von Desmulator

leider kommt die datei von einem server, der nicht mir gehört, ...

Na gut, dann verwende die Klasse TStringList. Damit bleibt dir das Zerlegen der Daten in einzelne Zeilen erspart.
Wie sehen denn die Daten aus (Beispiel)?
Ich wette, die Klasse TStringList kann deine Klasse THack fast vollständig ersetzen.

[Desmulator]

@shmai:

BOF
L:80.136.122.156|Desmulator|17:24:25|0.30|6|Tourna ment|7666|Tournament|1|1020|24978488
EOF

[mkinzler]

Geht problemlos mit einer Stringliste

Delphi-Quellcode:

var
    sl: TStrings;
...
  sl := TStringList.Create;
  sl.Delimiter = '|';
  sl.DelimitedString = s;
  Ip := sl.Strings[0] ;
...

[Desmulator]

ich will aber nicht nur diese eine funktion da drin haben, sondern da kommt noch viel mehr, auserdem will ich lernen und mich nicht an sämtliche units stützen, vondenen ich nachher eh nicht mehr weis welche wofür war...

[shmia]

Zitat:

Zitat von Desmulator

ich will aber nicht nur diese eine funktion da drin haben, sondern da kommt noch viel mehr, auserdem will ich lernen und mich nicht an sämtliche units stützen, vondenen ich nachher eh nicht mehr weis welche wofür war...

Aber genau das macht doch einen guten Programmierer aus!!
Ich muss nicht jedem Byte hinterherrennen und es unter meine Kontrolle zwingen.
Es reicht wenn ich weiss, welche Klassen ich einsetzen kann um ein bestimmtes Problem mit möglichst wenig Aufwand zu lösen.
Man sollte sich wirklich nicht zu schade sein, einfach vorhandenen Code zu verwenden.
Durch das Verwenden von Code stehe man doch schon "einige Meter über dem Boden" und fängt dort an, wo anderen schon die Luft ausgeht.
Ich kenne Programmierer, die waren der vollen Überzeugung, dass nur Assembler das einzig Ware sei.
Es hat zwar Jahre gedauert, aber die Leute sind heute geheilt.
Andere glauben, diese Klicke-Di-Klick Programmierung (Komponenten auf's Formular ziehen, und Eventhandler kurz ausprogrammieren) sei minderwertig.
Geanu das Gegenteil ist der Fall. Durch das schnelle Zusammenbauen von Formularen/Datenmodule hat man viel mehr Zeit für die schwierigen Dinge.

[SirThornberry]

ein guter Programmierer hat aber auch seine eigenen Klassen. Und ich finde es in keinster Weise verkehrt wenn man weiß was das Programm macht und nicht immer nur fertiges verwendet. Zudem ist der Lerneffekt bedeutend höher wenn man selbst etwas programmiert als wenn man etwas fertiges verwendet.