Telnet + mehrzeilige Ausgabe in Memo

[jacky213]

Ich habe es erstmal so gemacht wie von chaosben beschrieben, aber irgendwie kam da nie alles
ins memo was der Server geantwortet hat. Also hab ich das folgendermaßen gelöst:

Also erstmal prüfen ob die empfangenen Daten auch wirklich was zum eintragen ins Memo enthalten.
Wenn das der Fall ist, dann wird das ganze ins Memo eingetragen.

Delphi-Quellcode:

procedure TClient.telnetDataAvailable(Sender: TIdTelnet;
  const Buffer: TIdBytes);
begin
if Trim(BytesToString(Buffer))='' then exit else
AddStatus(BytesToString(Buffer));
end;

Der übergebene Wert wird hiermit schlichtweg ins Memo geschrieben. Ich fand diesen Umweg etwas
übersichtlicher weil ich nicht nur die ausgabe des telnet clients ins memo schreiben wollte und
so spar ich mir das wiederholen von Memo1.Lines.Add()

Delphi-Quellcode:

Procedure AddStatus (str:string);
begin
frmConsole.Memo1.Lines.Add(str);
end;

[vagtler]

Die im Beitrag http://www.delphipraxis.net/1305843-post6.html vorgeschlagene Lösung ist durch Missachtung von Grundlagen objektorientierter Programmierung und Durchmischung mit prozeduraler Entwicklung nicht nachahmenswert.

Hier wird eine globale Prozedur aus einer Klasseninstanz aufgerufen, die wiederum Objekte einer spezifischen Klasseninstanz anspricht, die wiederum über eine benannte globale Instanzvariable angesprochen wird. Das entspricht keinen Best Practices und sollte wo immer es geht vermieden werden - das mag im konkreten Glücksfall (noch) funktionieren, fällt einem früher oder später aber auf die Füße. Es spricht absolut nichts dagegen, die AddStatus-Prozedur z.B. als Methode der Klasse zu deklarieren und z.B. über eine Singleton-Implementierung der entsprechenden Form-Klasse aus der TClient-Klasse anzusprechen.