Memory in Delphi

[Deven]

Und noch eine Frage

wenn ich jetzt ein image1 habe

und möchte diesem image1 per button druck eine bilddatei zuweisen ... wie mach ich das?

im Objectinspector geht man da uf picture und dann auf (TBitmap) aber wie programmiert man das?

[Deven]

Zitat von Phoenix:

type zweidim = array of array of integer;

wo im quellcode muss das hingeschrieben werden?

[Tpercon]

Schreib im private Teil folgendes:

Delphi-Quellcode:

private
  zweidim = array of array of integer;

Fürs dynamische Laden eines Bildes in ein Image solltest du mal die Suche benutzen.

[Deven]

danke

aber leider bekomme ich dann immer ne fehlermeldung :

';' oder ':' erwartet aber '=' gefunden

wenn ich dann : nehme geht es soweit ...

aber dann sagt er:

'[' erwartet aber 'OF' gefunden...

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);
  private
  zweidim : array of array of integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
   matrix: zweidim; 
   x,y: Integer;
begin 
   x := 5; // länge erste dimension
   y := 5; // länge zweite dimension 

   setLength(matrix, x, y); // array initilisieren
    
   // der einzelne x/y - Wert wird dann so angesprochen 
   x := 0;
   y := 4;
   matrix[x,y] := 1;
   // dies würde dem 'untersten' Element in der ersten spalte eine 1 zuweisen
end;
end;

end.

[flomei]

Wo steht denn type in deinem Source??? Vielleicht solltest du da mal   zweidim : array of array of integer; hinschreiben. Vielleicht hilft es?!

MfG Florian

[Tpercon]

Hau die lokale deklaration von   matrix: zweidim; mal raus und nenne zweidim in matrix um.
Oder die andere Möglichkeit wäre:

Delphi-Quellcode:

type
  zweidim : array of array of integer;
  TForm1 = class(TForm)

zu schreiben.


Außerdem ist das vorletzte end zu viel!

[Phoenix]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  zweidim = array of array of integer; // <== hier musses hin!
  TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);
  private
                // weil hier kommen membervariablen hin, keine typdefinitionen
                // da hat TPercon was verwechselt
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

[hier wie gehabt weiter...]

[Deven]

Zitat von Deven:

danke

aber leider bekomme ich dann immer ne fehlermeldung :

';' oder ':' erwartet aber '=' gefunden

wenn ich dann : nehme geht es soweit ...

aber dann sagt er:

'[' erwartet aber 'OF' gefunden...

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);
  private
  zweidim : array of array of integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
   matrix: zweidim; 
   x,y: Integer;
begin 
   x := 5; // länge erste dimension
   y := 5; // länge zweite dimension 

   setLength(matrix, x, y); // array initilisieren
    
   // der einzelne x/y - Wert wird dann so angesprochen 
   x := 0;
   y := 4;
   matrix[x,y] := 1;
   // dies würde dem 'untersten' Element in der ersten spalte eine 1 zuweisen
end;
end;

end.

die Frage steht noch aus

[Daniel B]

Du hast zwei end; untereinander, eins davon musst Du löschen weil es zuviel ist.

[Deven]

Zitat von Deven:

danke

aber leider bekomme ich dann immer ne fehlermeldung :

';' oder ':' erwartet aber '=' gefunden

wenn ich dann : nehme geht es soweit ...

aber dann sagt er:

'[' erwartet aber 'OF' gefunden...

der fehler mit dem Of ist geblieben ...

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);

  private
    zweidim : array of array of integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
   matrix: zweidim;
   x,y: Integer;
begin 
   x := 5; // länge erste dimension
   y := 5; // länge zweite dimension 

   setLength(matrix, x, y); // array initilisieren
    
   // der einzelne x/y - Wert wird dann so angesprochen 
   x := 0;
   y := 4;
   matrix[x,y] := 1;
   // dies würde dem 'untersten' Element in der ersten spalte eine 1 zuweisen
end;

end.