Sagt mal, was ist am unteren Code falsch?
[Error] skat1.pas(364): [Es geht um items] Class does not have a default property
Delphi-Quellcode:
procedure TForm1.nullspiel (Items: TStringgrid);
var
done: boolean;
i, n: integer;
Dummy: string;
begin
n:=10;
repeat
done := true;
for i := 0 to n - 2 do
if Items[i] > Items[i + 1] then begin
Dummy := Items[i];
Items[i] := Items[i + 1];
Items[i + 1] := Dummy; done := false;
end;
until done;
end;
Danke, Wieland