Er zijn 2 reacties in dit onderwerp

[badboyqxy]

hey goede dag,

Ik moet voor school keer opdracht doen met dephi :S
console applicatie
wat ik al heb is volgende

Delphi/Pascal Code:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
	ArtikelInformatie : array of array of string;
	ArtikelNummer:Integer;
	ArtikelOmschrijving:string;
	  prijs:real;
	voorraadhoogte:Integer;
	Teller:Integer = 0;

begin
  try

  for Teller := 1 to 4 do
	setLength(ArtikelInformatie[Teller],1);

  Teller = 1;
  ArtikelNummer := read;

while(ArtikelNummer <> 0)   do
begin
	ArtikelOmschrijving := read;
	prijs := read;
	voorraadhoogte := read;
  SetLength(ArtikelInformatie[0],Teller);
  //ArtikelInformatie[Teller-1,0,0,0] := ArtikelNummer ,ArtikelOmschrijving,prijs,voorraadhoogte;
  Teller := Teller + 1;
	ArtikelNummer = read;
end

  except
	on E:Exception do
	  Writeln(E.Classname, ': ', E.Message);
  end;
end.

Delphi/Pascal Code:

 //ArtikelInformatie[Teller-1,0,0,0] := ArtikelNummer ,ArtikelOmschrijving,prijs,voorraadhoogte;

nu wil ik de array dus gaan vullen met deze gegevens

hoe kan je dat het beste doen in deze taal ?

[RedThread]

Je bedoeld wss delphi van Borland ?

[badboyqxy]

ja de standalone versie codegear van bordeland