Variable in for to do Schleife über I ansprechend

[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.

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 von Dr. Jack:

Delphi-Quellcode:

Vk_name1, vk_preis1,
Vk_name2, vk_preis2:String

For I:=1 to 3 do begin

Machwas := vk_name(I)

dann

Zitat von Dr. Jack:

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 von 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. .

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 von Dr. Jack:

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 von Jumpy:

Zitat von Dr. Jack:

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.