array auf Inhalt überprüfen

[ghost1601]

Hiho,
ich habe eine form in der mehrere editfelder vorhanden sind.
aus diesen editfelder werden daten entnommen die dann in ein array geschrieben werden sollen.
nun hab ich das problem, dass ich mit einem button direkt an die stelle springen will wo noch kein eintrag vorhanden ist. ich habe allerdings keine ahnung wie ich das machen kann.
ich denke man müsste erstmal das array überprüfen ob an stelle x ein eintrag vorhanden ist.
kann mir da jemand weiterhelfen, also speziellan der stelle wie ich das array überprüfen kann?
thx

[marabu]

Hi,

du könntest deine Edit-Felder in ein array of TEdit eintragen und dann mit einer Schleife über dieses array gehen um ein leeres Feld zu finden - etwa so:

Delphi-Quellcode:

var
  EditArray: array of TEdit;
  i: Integer;
begin
  for i := Low(EditArray) to High(EditArray) do
    if EditArray[i].Text = '' then
    begin
      EditArray[i].SetFocus;
      Break;
    end;
end;

Grüße vom marabu

[ghost1601]

Zitat:

Zitat von marabu

Hi,

Delphi-Quellcode:

var
  EditArray: array of TEdit;
  i: Integer;
begin
  for i := Low(EditArray) to High(EditArray) do
    if EditArray[i].Text = '' then
    begin
      EditArray[i].SetFocus;
      Break;
    end;
end;

Grüße vom marabu

ja aber ein array hab ich ja schon und nebenbei mit diesen quelltext geht man auch nicht an die erst leere stelle, soweit ich das beim testen sehen konnte...ich hatte da irgendwann mal eine FindComponent, allerdings weiß ich nicht mehr wie die funktionierte:cry:, vielleicht ginge das damit?

[marabu]

Hallo,

Zitat:

Zitat von ghost1601

ja aber ein array hab ich ja schon ...

um so besser.

Zitat:

Zitat von ghost1601

... und nebenbei mit diesen quelltext geht man auch nicht an die erst leere stelle

Wohin denn dann? Was meinst du denn mit "erste Stelle"? Hast du die Items im Array geordnet, damit erste und letzte Stelle definiert sind?

Zitat:

Zitat von ghost1601

... ich hatte da irgendwann mal eine FindComponent, allerdings weiß ich nicht mehr wie die funktionierte:cry:, vielleicht ginge das damit?

Klar doch - es gibt immer mehrere Wege, wie man ein Problem lösen kann. Den optimalen Weg findet nur der, welcher alle Anforderungen kennt.

Freundliche Grüße

[ghost1601]

hi again^^:lol:,

das array in dem die daten stehen ist natürlich gefüllt und sortiert (das hätte ich erwähnen müssen, da hast du vollkommen recht).
die einträge dort sind von stelle 1 aufwärts eingetragen, derzeit bis zur stelle 11. die 12 wäre daher die erste freie stelle. und die soll das programm finden :-D
falls du sonst noch weitere anforderungen erfahren willst, frag doch einfach.
:thumb:

[thales]

Hallo,

eine Möglichkeit wäre, das Array als dynamisches Array zu deklarieren. Es wird immer so groß gemacht, wie gerade benötigt. Die Länge fragt man mit "length(..)" ab, vergrößert wird es mit "setlength(..)".
Achtung: Die Zählung beginnt immer bei 0!

Bsp.: 12 Einträge: 0 .. 11
"n:=length(array)" ergibt den Wert 12, mit setlength(array,n+3) wird das Array um 3 Plätze erweitert ,
der erste freie platz in dass array[n].

Gruß Thales

[marabu]

Was verstehst du unter "Stelle"?
Wie ist die Ordnung definiert?

[ghost1601]

@thales: das wäre eine möglichkeit...aber ich denke dadurch würde ich nur noch mehr probleme bekommen weil dann anderswo etwas nicht hinhaut :wink:

@marabu: mit stelle ist die position im array gemeint

[marabu]

Hallo,

ich verstehe zwar immer noch nicht, was du da vorhast, aber wenn ich das Suchen nach einem unbelegten Slot im Array als unabhängiges Teilproblem betrachte, dann empfehle ich dir statt einem Array eine TObjectList zu verwenden. Mit demr Methodenaufruf IndexOf(nil) bekommst du dann den Index des ersten freien Slots.

Gute Nacht

[ghost1601]

Guten Abend,

also ich fang am besten von vorne an. ich hab ein programm mit editfeldern. in den editfeldern werden sachen eingetragen die in ein array eines eigenen datentyps geschrieben werden. diese daten, aus dem array will ich nun durchsuchen. die suche soll mir die erste freie stelle (also die wo noch nichts steht) ausgeben. sodass ich an dieser stelle fortfahren kann und auch gleich diese stelle füllen kann.
jetzt klar?

[C.Schoch]

Hi,
Wenn ich das richtig sehe dann sollte es doch so gehen:

Delphi-Quellcode:

  procedure FindFirstEmptyEdit();
var
  i: Integer;
begin
  for i := 0 to Form3.ControlCount - 1 do
  begin
    if Form1.Controls[i] is TEdit then
    begin
      if (Form1.Controls[i] as TEdit).Text = '' then
      begin
        (Form1.Controls[i] as TEdit).SetFocus;
        Break;
      end;
    end;
  end;
end;

Edit: Der erste Versuch war nichts so ganz das gewünschte
Edit2: Fehler beseitigt

[Klaus01]

Zitat:

Zitat von ghost1601

Guten Abend,

also ich fang am besten von vorne an. ich hab ein programm mit editfeldern. in den editfeldern werden sachen eingetragen die in ein array eines eigenen datentyps geschrieben werden. diese daten, aus dem array will ich nun durchsuchen. die suche soll mir die erste freie stelle (also die wo noch nichts steht) ausgeben. sodass ich an dieser stelle fortfahren kann und auch gleich diese stelle füllen kann.
jetzt klar?

Vielleicht gibst Du auch dann einmal das Array und dessen Datentypen bekannt.
So ist das ja nur stochern im Ungewissen.

Grüße
Klaus

[ghost1601]

na klar, aber gerne doch. :thumb:

Delphi-Quellcode:

datenfeld:array[1..max]of tdaten;

und tdaten ist dabei ein record bestehend aus Strings.
@ C.Schoch: tut mir leid aber das haut nicht hin...ich bekomm immer einen fehler an Form1.Controls[i].SetFocus; speziell focus kennt form1.controls nicht... :cry:

[Klaus01]

Zitat:

Zitat von ghost1601

na klar, aber gerne doch. :thumb:

Delphi-Quellcode:

datenfeld:array[1..max]of tdaten;

und tdaten ist dabei ein record bestehend aus Strings.
@ C.Schoch: tut mir leid aber das haut nicht hin...ich bekomm immer einen fehler an Form1.Controls[i].SetFocus; speziell focus kennt form1.controls nicht... :cry:

Delphi-Quellcode:

var
  i: Integer;
  leer:Integer;
begin
  ....
  leer:=-1;
  i:=low(datenfeld);
  while (leer < 0) and (i <= high(datenfeld)) do 
    begin
      if datenfeld[i].whatever = ' ' then
        leer:=i;
      inc(i);
    end;
  ....
end;

Vielleicht so?

Genauer geht es nicht, da ich nicht weiß wie Dein TDaten ausschaut.

Grüße
Klaus

[ghost1601]

ich spring gleich aus'm fenster :lol:
das funzt leider auch nicht...im gegenteil da passiert so ziemlich gar nichts
ich hab das, was du geschrieben hast in eine Button procedure gepackt und er springt auf keinem fall zu der stelle im array wo noch nichts steht und das zeigt er auch nicht an
hier noch die TDaten

Delphi-Quellcode:

type tdaten=record
      clanname:string[50];
      clankuerzel:string[12];
      homepage:string[70];
      nation:string[13];
      spiel:string[20];
      kontaktname:string[30];
      icq:string[12];
      msn:string[30];
      maps:string[150];
      kommentar:string[150];
end;

const max=100;

var p:integer;
    daten:tdaten;
    datenfeld:array[1..max]of tdaten;
    datendatei:file of tdaten;

[Klaus01]

Delphi-Quellcode:

var 
  i: Integer; 
  leer:Integer; 
begin 
  .... 
  leer:=-1; 
  i:=low(datenfeld); 
  while (leer < 0) and (i <= high(datenfeld)) do 
    begin 
      if datenfeld[i].clanname = '' then       // <- etwas geändert
        leer:=i; 
      inc(i); 
    end;
  if leer = -1 then
    ShowMessage('keine leere Stelle gefunden')
  else
    ShowMessage('leere Stelle liegt an Position'+ IntToStr(leer)); 
  .... 
end;

Funktionert aber auch nur dann wenn der clanname wirklich nichts enthält.
Oder was ist Dein Kriterium um zu sehen, daß das Datenfeld leer ist?

Grüße
Klaus

[ghost1601]

super das funktioniert. genauso sollte es gehn...hab vielen dank :thumb: :thumb: :thumb:
wäre natürlich um vieles besser wenn er gleich an die stelle springen würde... :?

[Klaus01]

Da ich Dein System immer noch nicht so ganz durchdrungen habe.

Ein Arrayfeld ist einem Editx zugeordnet - ist das richtig?
datenfeld[1] -> edit1.text z.B.

Wenn dem so ist, dann kannst Du doch mit FindComponent arbeiten.

Delphi-Quellcode:

(FindComponent('Edit'+inttostr(leer)) as TEdit).setFocus;

Wenn nicht dann sag' mir einmal was du damit meintest:

Zitat:

wäre natürlich um vieles besser wenn er gleich an die stelle springen würde...

Grüße
Klaus

[C.Schoch]

Hi,
Ich hab meine Funkion noch mal geändert jetzt gehts falls einer mal sowas braucht. War frei geschrieben. :firejump: