Registriert seit: 20. Aug 2011
Ort: Berlin
113 Beiträge
Delphi 6 Personal
|
AW: Warteschlange realisieren
14. Mai 2012, 12:19
Also , jetzt sieht es so aus :
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
person = record
Name: string;
id:integer;
end;
Tschlange = class
private
next,max:integer;
schlange : array [1..10] of person;
public
function einfuegen(x:person):boolean;
constructor create;
end;
var
Form1: TForm1;
myschlange:Tschlange;
implementation
constructor tschlange.create;
begin
next :=10;
max := 10;
end;
function tschlange.einfuegen(x: person):boolean;
begin
//hinter dem Array kann man nichts mehr einfügen
Result := Next <= max; // MUSS ICH HIER WAS ÄNDERN ?
if Result then
begin
//Daten an aktuelle Array-Position schreiben
schlange[Next]. Name := x. Name;
schlange[Next].Id := x.id;
//Position erhöhen
dec(Next);
end;
end;
{$R *.dfm}
end.
Felix
|
|
Zitat
|