ich hab grad versucht das ein wenig deinen vorschlägen nach
abzuändern, dazu habe ich mir eine neue
unit erzeugt und
dort ein paar methoden reingepackt die die requests generieren
(wobei ich anmerken muss das die methode Requests weitere Methoden
in dieser Unit3 nutzt die ich nicht alle in Unit2 auslagern möchte)
Code:
unit Unit3;
interface
uses
Classes, SysUtils, Unit2;
type
TPackets = class(TObject)
public
procedure Requests(Step: integer);
end;
implementation
procedure TPackets.Requests(Step: integer);
begin
case Step of
0: Write('Hello');
1: Write('Bye');
end;
end;
end.
in der unit2 hab ich dann ergänzt:
Code:
...
type
TMyThreads = class(TThread)
private
{ Private-Deklarationen }
FStep: Integer;
...
implementation
uses
Unit1, Unit3;
...
with IdTCPClient do
begin
....
try
Requests(0); //hier wird gemeckert zuviele Parameter
Requests(1); //und der aufruf in der form ist sicher auch falsch
...
procedure TMyThreads.Requests;
begin
Packets.Requests(FStep); //hier wird gemeckert Undefinierter Bezeichner 'Packets'
//wobei type TPackets = class(TObject) in Unit3 ja eigentlich gesetzt ist
//und dann sind ess ihm natürlich auch noch zu viele Parameter
//trotz des public procedure Requests(Step: integer); in unit3
end;
Ist natürlich wie erwartet vieles völlig falsch,
hat jemand vielleicht ne idee was ich besser machen könnte?
