Variable in for to do Schleife über I ansprechend

[Dr. Jack]

Hi zusammen,

ich habe folgende Variablen deklariert:

Vk_name1, vk_preis1,
Vk_name2, vk_preis2:String

Ich muss in einer for to do schleife die Variablen über I ansprechen.

Zum Beispiel schemenhaft:

For I:=1 to 3 do begin

Machwas := vk_name(I)
....
End;

Wie kann ich also die Variable in der Schleife
mit dem Schleifenzähler ansprechen?

[mkinzler]

Am Besten verwendet man gleich einen Array.

[jaenicke]

Wenn das so etwas wie eine kleine Kasse sein soll, würde sich für die Artikel eher eine generische Liste bzw. ein Dictionary mit entsprechenden Klassen anbieten.

Das hat den Vorteil, dass man alle Daten zu einem Artikel zusammen in einer Klasse hat. Ansonsten verteilt sich das über mehrere Arrays bzw. Variablen, was das nicht gerade übersichtlicher macht

[dummzeuch]

Zitat:

Zitat von Dr. Jack (Beitrag 1431398)

ich habe folgende Variablen deklariert:

Vk_name1, vk_preis1,
Vk_name2, vk_preis2:String

Ich muss in einer for to do schleife die Variablen über I ansprechen.

Zum Beispiel schemenhaft:

For I:=1 to 3 do begin

Machwas := vk_name(I)
....
End;

Wie kann ich also die Variable in der Schleife
mit dem Schleifenzähler ansprechen?

Das geht schlichtweg so nicht. Du musst die Strings in einem Array speichern:

Delphi-Quellcode:

type
  TVKNameUndPreis: record
    Name: string;
    Preis: string; // wirklich string?
  end;
var
  VKArray: array[1..2] of TVKNameUndPreis;

// [...]
for i:=1 to 2 do begin
  MachWasMit(VKArray[i].Name, VKArray[i].Preis);
end;

[uligerhardt]

Zitat:

Zitat von dummzeuch (Beitrag 1431403)

Delphi-Quellcode:

type
  TVKNameUndPreis: record
    Name: string;
    Preis: string; // wirklich string?
  end;
var
  VKArray: array[1..2] of TVKNameUndPreis;

// [...]
for i:=1 to 2 do begin
  MachWasMit(VKArray[i].Name, VKArray[i].Preis);
end;

U. U. sogar

Delphi-Quellcode:

for i := 1 to 2 do
begin
  VKArray[i].MachWasMit;
end;

[freimatz]

Nach dem die Antworten hier teilweise nach dem Muster "wer findet noch was abgefahreneres um einen Anfänger zu verwirren?" hier noch mein Vorschlag:
Nachdem die Variablen im Speicher ja schön hintereinander liegen - er könnte sich die Adresse von Vk_name1 besorgen, in einen Pointer casten und dann je nach i sich die Adresse ausrechnen und zurück casten.
Das hat noch den riesen Vorteil, dass er seine Deklarationnicht anpassen muss. :wink:

Im Ernst: offensichtlich ist Dr. Jack ein Anfänger der gerade mal weiß was eine Schleife ist aber noch nichts von Arrays gehört hat. Da würde ich jetzt nicht schon Klassen, Records und noch höheres vorschlagen sondern nur array alleine

Also statt

Zitat:

Zitat von Dr. Jack (Beitrag 1431398)

Delphi-Quellcode:

Vk_name1, vk_preis1,
Vk_name2, vk_preis2:String

For I:=1 to 3 do begin

Machwas := vk_name(I)

dann

Zitat:

Zitat von Dr. Jack (Beitrag 1431398)

Delphi-Quellcode:

vk_name: array[1..3]: String;
vk_preis: array[1..3]: String;

For I:=1 to 3 do begin
Machwas := vk_name[I];
end;

Klar, hat das noch ein riesiges Verbesserungspotential. Aber so hat Dr. Jack ein Erfolgserlebnis, weiterhin Spass an Delphi und lernt dann gerne weiter.

[Uwe Raabe]

Man kann es auch ganz pragmatisch machen und eine Funktion deklarieren, wobei der restliche Code unverändert bleibt:

Delphi-Quellcode:

function vk_name(Index: Integer): string;
begin
  case Index of
    1: result := vk_name1;
    2: result := vk_name2;
  else
    raise ERangeError.Create('invalid Index');
  end;
end;

Das wäre z.B. auch die bevorzugte Herangehensweise, wenn die Variablendeklaration nicht verändert werden kann.

[hoika]

Hallo,
ähem,
i von 1 bis 3 und es gibt für 3 keine entsprechende Variable???

Die Richtung zum Array finde ich schon richtig. .

[Dr. Jack]

Zitat:

Zitat von hoika (Beitrag 1431408)

Hallo,
ähem,
i von 1 bis 3 und es gibt für 3 keine entsprechende Variable???

Die Richtung zum Array finde ich schon richtig. .

Es gibt ca 30 Variablen. Erster Durchlauf Artikel 1 mit seinen Parametern also Preis Lagerort etc ...das wird mit 3 Durchläufen anschließend in eine DB geschrieben

[hoika]

Hallo,
dann kürze Deine Variablen und nimm ein Array.

[Jumpy]

Zitat:

Zitat von Dr. Jack (Beitrag 1431409)

Es gibt ca 30 Variablen. Erster Durchlauf Artikel 1 mit seinen Parametern also Preis Lagerort etc ...das wird mit 3 Durchläufen anschließend in eine DB geschrieben

Das klingt aber schon so, als ob der TE sich einmal mit OOP befassen sollte. Ein "Artikel mit seinen Parametern" ist doch ein Paradebeispiel für ein Objekt mit seinen Attributen.

[hoika]

Hallo,
ich würde erst mal mit einem Array anfangen.
Dann sehe ich auch den Inhalt des Arrays bei "überwachte Ausdrücke" (Strg+F5).

[TurboMagic]

Zitat:

Zitat von Jumpy (Beitrag 1431431)

Zitat:

Zitat von Dr. Jack (Beitrag 1431409)

Es gibt ca 30 Variablen. Erster Durchlauf Artikel 1 mit seinen Parametern also Preis Lagerort etc ...das wird mit 3 Durchläufen anschließend in eine DB geschrieben

Das klingt aber schon so, als ob der TE sich einmal mit OOP befassen sollte. Ein "Artikel mit seinen Parametern" ist doch ein Paradebeispiel für ein Objekt mit seinen Attributen.

Ja das klingt so. Es gibt ja vom Delphi Treff ein deutsches Einführungsheftchen da steht schon einiges drin.
Nur einen Kritikpunkt an dem hatte ich damals, als ich es mal in den Fingern hatte (über einen Studenten):
Das Kapitel über Dateiverarbeitung war doch sehr altbacke. File etc. statt TStringListe oder TStream etc.