array test

[davtix]

hi und guten morgen :)

ich bin mal dabei mich mit array´s zu beschäftigen, um mal zu sehen wie es funktioniert.
derzeit bin ich noch bei statischen arrays um es zu begreifen.

soweit (oder kurz) bin ich jetzt...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  PMyArray = ^TMyArray;
  TMyArray = array[1..100] of string;
var
  a : TMyArray;   zahlincombobox:integer;
begin
  a[50]:='schreibe das hier array 50';
  a[55]:='oder schreibe das hier array 55';
  a[43]:='noch besser das hierschreibe das hier array 43';

  zahlincombobox := strtoint(combobox1.Text);

  label1.Caption:=  a[zahlincombobox];
end;


function myfirstARRAY( welcherARRAYlesen :integer):string;
type
  PMyArray = ^TMyArray;
  TMyArray = array[1..100] of string;
var
   a : TMyArray;
begin
 a[50]:= ('wenn 50 in das edit feld eingegeben wurde erscheint dieser text im memofeld');
 a[51]:= ('wenn 51 in das edit feld eingegeben wurde erscheint dieser text im memofeld');
 a[1]:= ('wenn 1 in das edit feld eingegeben wurde erscheint dieser text im memofeld');
 a[58]:= ('wenn 58 in das edit feld eingegeben wurde erscheint dieser text im memofeld');

   // aus versehen 80 doppelt
 a[80]:= ('erster string');
 a[80]:= ('zweiter string');

 result:=a[welcherARRAYlesen];
end;


procedure TForm1.Button3Click(Sender: TObject);
begin

memo2.lines.Add( myfirstARRAY( strtoint(edit1.Text) ) );
end;

nun möcht ich rausfinden wie man arrays vergleicht , also in ner scchleife oder so...

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
type
  PMyArray = ^TMyArray;
  TMyArray = array[1..10] of string;
var a:tmyarray;  s,s2:string; I:integer;
begin
 a[1] := 'array string 1';
 a[2] := 'array string 2';
 a[3] := 'array string 3';
 a[4] := 'array string 4';
 a[5] := 'array string 5';
 a[6] := 'array string 6';
 a[7] := 'array string 7';
 a[8] := 'array string 8';
 a[9] := 'array string 9';
 a[10] := 'array string 10';

s:= edit1.Text;

for I := 0(s2) to 10(s2) do
  if s[I] = s2 then
    In_Array := true;
    else
    Result := false;


label6.Caption:= () // ob ein wert im array vorhanden ist
label7.Caption:= inttostr(  ) // welcher array es ist 1, 2, 3, 4 ...



end;

[Sir Rufo]

wenn du um deinen Quelltext

Code:

[DELPHI]
procedure foo;
begin
  bar;
end;
[/DELPHI]

dann sieht das so aus

Delphi-Quellcode:

procedure foo;
begin
  bar;
end;

statt

Code:

procedure foo;
begin
  bar;
end;

[davtix]

okay habs rausgefunden ;)

Delphi-Quellcode:

s:= edit2.Text;


for i := 1 to 100 do
  begin
    if a[i] = s then begin
                      label6.Caption:= ('gefunden');
                      label7.Caption:= inttostr(i)
                 end;
  end;

[himitsu]

Oder den wert von i speichern und nach der Schleife auswerten.

[davtix]

is ja richtig nützlich so n array ;):)

Delphi-Quellcode:

type
  TMyArray = array[1..50] of string;
 TMyArray2 = array[1..50] of tpicture;

var 
i :integer; a : TMyArray; a2 : TMyArray2;

a[1]:=('pic1'); 
a[2]:=('pic2');

a2[1]:= form1.image1.Picture;
a2[2]:= form1.image2.Picture;


aBpic := ini.ReadString('image50','pic','');
      for i := 1 to 2 do  begin
          if a[i] = aBpic then
             form1.image50.Picture:=a2[i]; 
      end;

könnte man einem array auch verschiedene werte zuordnen??
also integer bool string und co???

Delphi-Quellcode:

setlength(myarray[1],5);