Proceduren erstellen

[Marcel2906]

Nun hab ich es so wie Daddy versucht. Aber nun bekomme ich die Fehlermeldung:

"Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt"

[DeddyH]

Wie rufst Du die Methode denn auf?

[Marcel2906]

Zitat von DeddyH:

Wie rufst Du die Methode denn auf?

TForm1.DoDelete;

[DeddyH]

Entweder
Form1.DoDelete; oder wenn Du es aus einer Methode von Form1 aufrufst einfach
DoDelete;

[Marcel2906]

Danke, bin sogar 2 sekunden vorher selber drauf gekommen

[himitsu]

Und nun könnte man noch etwas gegen die vielen Globalen machen.

[Marcel2906]

Kann ich jetzt meine Output Procedure auch mit einer Variable benutzen?
Ungefähr so (klappt leider nicht):

Code:

procedure TForm1.Output(g:integer);
   const
      MAX_TABS = 5;
      Tab = #9;
   var
      Tabulators: array[0..MAX_TABS] of Integer;

begin

//Tabulatorweiten festlegen
Tabulators[0] := 72;
Tabulators[1] := 136;
Tabulators[2] := 202;
Tabulators[3] := 1;
Tabulators[4] := 1;
ListBox1.TabWidth := 1;

//Tabulatoren setzen
SendMessage(ListBox1.Handle, LB_SETTABSTOPS, MAX_TABS, Longint(@Tabulators));

//ListBox leeren
ListBox1.clear;

//Liste ausgeben
f:=0;
 while ((f < length(Liste)) and (f<g)) do
  begin
   ListBox1.Items.Strings[f]:='  '+Liste[f].Linie
   + Tab +Liste[f].Ziel
   +Tab+Liste[f].Abfahrt+' Uhr'
   +Tab+IntToStr(Liste[f].Verspätung)+Tab+'Minuten';
   f:=f+1;
  end;
end;