[Non VCL] Dynamisches Array erstellen, füllen & ausgeben

[Back2Code]

Delphi-Quellcode:

// Dynamisches Array erstellen, füllen & ausgeben
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  anzahl,anzahl1,i,o: integer;
  eingabe: string;
  ListArray: array of string;
  valid: boolean = True;

begin
  WriteLn('########################################');
  WriteLn('Wieviele Namen moechten Sie eintragen?');
  ReadLn(anzahl);
  SetLength(ListArray, anzahl);

  for i := 0 to anzahl - 1 do

    begin
      if i = anzahl -1 then
      begin
        WriteLn('Geben sie bitte den letzten Namen ein: ');
        end
        else
      WriteLn('Geben sie bitte den Namen ein: ');
      ReadLn(ListArray[i]);
    end;


  WriteLn('');

    WriteLn('Alle Namen wurden eingespeichert!');

      WriteLn('');

    WriteLn('Ausgabe aller Namen erfolgt...');

      WriteLn('');

  for o := 0 to anzahl - 1 do
    begin
      WriteLn(ListArray[o]);
    end;


    WriteLn('');
    WriteLn(' Aktueller Indexstand : ' + IntToStr(anzahl));

    while valid = True do

    begin
    WriteLn(' Geben Sie einen Index an, um das entsprechende Item auszugeben: ');
    ReadLn(anzahl1);
    if anzahl1 > anzahl then
    begin
    WriteLn('Item existiert nicht!');
    end
    else
    begin
    WriteLn(ListArray[anzahl1-1]);
    Valid := False;
    end;
  end;

    WriteLn('');
    WriteLn('########################################');
    WriteLn('Programmende');
    WriteLn('');
    ReadLn;
end.