UP

[n00b_on_knees]

Hi!

Ich hab da ein Problem mit einem Programm:

Gesucht ist ein Unterprogramm, das aus einem Feld die i-te Position löscht.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edZahl: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Delete;
 
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation


{$R *.dfm}

procedure TForm1.Delete(var Feld: array [1..20] of integer);
var N, j, i: integer;
begin
N:= N-1;
for j:=1 to N-1 do
Feld[j]:=Feld[j+1];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Delete;
end;


end.

Mein Problem ist, das es immer bei der Variablendeklaration vom Array Feld hängen bleibt, naja bin eben ein anfänger

Ich hoffe ihr könnt das so schnell wie möglich beantworten, ist irgendwie echt dringend!

[mirage228]

versuch mal die proecedure so zu machen:

Delphi-Quellcode:

 
procedure TForm1.Delete(var Feld: array of integer);

[n00b_on_knees]

so habs jetzt,

Delphi-Quellcode:

type tfeld=array[1..20] of integer;

function delete:tfeld;

mit nem type und ner function gehts besser...

[Luckie]

@n00b_on_knees: Auch wenn du auf Knien vor deinem Computer rumrutschst, könntest du das nächste mal bitte eine etwas aussagekräftigeren Titel wählen? "UP", "AF", "KJ" sind nicht gerade sehr ausagekräftig.