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;