Variablen während Laufzeit erzeugen?

[mo_greene]

Hallo,

ist es möglich während der Laufzeit des Programmes Variablen zu erzeugen? Wenn ja wie mache ich das?

Es geht darum, dass ich in Abhängigkeit von der Länge eines Textes verschiedene Variablen erstellen möchte.

MFG, Danke
mo_greene

[Apollonius]

Nicht direkt. Du könntest allerdings mit dynamischen Arrays arbeiten oder die Variablen in den Objects einer TStringlist verwalten.

[mo_greene]

Es geht darum, dass ich die Zeichen eines Textest nacheinander in Variablen (oder auch nicht) abspeichern möchte.

Beispiel:
Text: Hallo ich wohne in Deutschland

a =HLCOEDTHN
b =AOHHIESLD
c =LIWNNUCA

Die anzahl der vohrnanden Variablen, soll durch die Länge eines Wortes bestimmt werden, welches erst zur Programmlaufzeit bestimmt wird.

Wie mache ich das am Besten?
Hat jemand eine Idee?

[mkinzler]

Man kann aber keine Variablen zur Laufzeit erzeugen, macht imho auch keinen Sinn.

[mo_greene]

ja, das ist ja imho schon bekannt. weiß jemand ob es dafür eine andere Möglichkeit gibt?

[Luckie]

Wurde doch schon gesagt: In so einem Fall sind dynamische Arrays einsetzbar oder Listen.

[OldGrumpy]

Für die gegebene Aufgabenstellung kannst Du ein array of String benutzen. Zur Laufzeit bestimmst Du wie viele Strings du brauchst, setzt mit SetLength diese Anzahl Strings für das Array und verteilst die Buchstaben dann der Reihe nach auf diese Strings.
Zur Ausgabe verwendest Du dann wieder eine Schleife, und fertig.

[mo_greene]

Ich habe jetzt eine Stringliste benutzt.

Aber noch eine Frage:

Wie kann ich denn ein Zeichen in ein Element einer List hinzufügen?

Also: List := List + Zeichen?

mfg

David

[quendolineDD]

Inwiefern?
Ein Stirng anhängen
StringList.Add(STRING); String in eine bestimmte Zeile einfügen

StringListe.list.Insert(INDEX, STRING); Ansonsten einen String an einen bestehenden String anhängen

StringListe.Strings[INDEX]:= StringListe.Strings[INDEX] + STRING

[mo_greene]

Ich bekomme eine Fehlermeldung, dass das Maximum überschritten wird

Delphi-Quellcode:

    repeat
    for i := 0 to length (Schluessel) do // x = Länge des Schlüssels
    begin                                // x = Anzahl der Elemente in List
      List.Strings[i]:= List.Strings[i] + Klartext[zeichen];
      inc (Zeichen);
      inc (z);
    end;
    i := 0;
    until z = length(Klartext);

Habe ich einen Fehler gemacht?