delphi array
const
Days : array[1..7] of string = ('Mon','Tue','Wed','Thu','Fri','Sat','Sun');
var
i : Integer;
begin
for i := 1 to 5 do // Show the weekdays
ShowMessageFmt('Day %d = %s',[i,Days[i]]);
end;delphi array
const
Days : array[1..7] of string = ('Mon','Tue','Wed','Thu','Fri','Sat','Sun');
var
i : Integer;
begin
for i := 1 to 5 do // Show the weekdays
ShowMessageFmt('Day %d = %s',[i,Days[i]]);
end;array delphi
Numbers : array[1..9] of string;
{ArrayNaem} : Array[{Start}..{End}] of {Tipe of arr};how to create an array in delphi
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
////////////////////////////////////////////////////////////////////////
//constant arrays
const
Numbers : array[1..9] of string = ('1','2','3','4','5','6','7', '8', '9');
//you can also create and integer type array
IntNumbs : array[1..5] of integer = (1, 2, 3, 4, 5);
//////////////////////////////////////////////////////////////////////
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.Copyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
