[Delphi] Komme einfach nicht weiter

[krumme]

Servus,
sry für den Titel mir ist nichts passendes eingefallen.

Ich habe folgendes Problem:

procedure TForm4.ListBox1Click(Sender: TObject);
begin
case listBox1.ItemIndex of
1:   anweisung
2:    anweisung
3:    anweisung
4:     anweisung
5:     anweisung
6:     anweisung
7:     anweisung
8:      anweisung
9:      anweisung
10:     anweisung
end:
end;

Es soll, bei der Anweisung so sein, das ich nicht 1, 2, 3, 4,...,9,10 eingeben muss sondern die länge durch eine Variable bestimmt wird. Wie kann ich das machen.
Ich weiß meine Problemstellung ist nicht die Beste aber ich hoffe ihr könnt mir helfen.

noch was wenn ich eine Datei ändere, wird die änderung erst nach neustart des Programmes angezeigt. Ich speichere die änderung mit datavok.SaveToFile und öffne Sie mit datavok.LoadFromFile

Und wie kann ich eine Variabel für alle Units verwenden?


mfg krumme

 

[N43]

Es soll, bei der Anweisung so sein, das ich nicht 1, 2, 3, 4,...,9,10 eingeben muss sondern die länge durch eine Variable bestimmt wird. Wie kann ich das machen.
Ich weiß meine Problemstellung ist nicht die Beste aber ich hoffe ihr könnt mir helfen.

Über 1..5: kannste z.B. den Bereich einschließlich und zwischen 1 und 5 ansprechen. Die 5 variabel zu halten ist meines Wissens nach (wie in den meisten Sprachen) nicht möglich.

noch was wenn ich eine Datei ändere, wird die änderung erst nach neustart des Programmes angezeigt. Ich speichere die änderung mit datavok.SaveToFile und öffne Sie mit datavok.LoadFromFile

Wo sollen die Änderungen denn sichtbar werden?

Und wie kann ich eine Variabel für alle Units verwenden?

Setze sie in den Interface-Teil der Unit, dann sollte sie global zugänglich sein.


N43

 

[krumme]

gut also muss ich es so machen

procedure TForm4.ListBox1Click(Sender: TObject);
begin
case listBox1.ItemIndex of
1..5: anweisung 
end:
end;

wie aber mach ich es das wenn z. B. 4 ausgewählt ist auch die anweisung für 4 ausgeführt wird?


Die Änderung soll in einem anderen Formular aufgerufen werden.

muss es dann so aussehen?

unit Unit1;

interface

test: string;

uses

mfg krumme

 

[N43]

procedure TForm4.ListBox1Click(Sender: TObject);
begin
case listBox1.ItemIndex of
1..5: anweisung 
end:
end;

Wenn du für jede Zahl eine extra Anweisung willst musste sie einzeln aufrufen. Schreib mal was genau passieren soll, dann ist leichter einfachere/kürzere Lösungen zu finden.

Die Änderung soll in einem anderen Formular aufgerufen werden.

Dann schreib dir am besten eine Funktion für das andere Formular, die du beim Speichern aufrufst.

muss es dann so aussehen?

unit Unit1;

interface

test: string;

uses

Sieht richtig aus, aber probier's doch einfach mal aus ;)

N43

 

[krumme]

weiteres Problem,

wie kann ich es anders machen, das es den gleiche zweck erfüllt?

case listbox1.ItemIndex of
0.. datavoc.count : ANR := listbox1.itemindex;
end;

 

[N43]

Hallo,

wenn Delphi sich weigert das zu compilieren, dann über eine if-Abfrage.


N43

 

[krumme]

wie mit einer if anweisung?

 

[N43]

wie mit einer if anweisung?

if listbox1.ItemIndex >= 0 and listbox1.ItemIndex <= datavoc.count then
begin
   // ...
end;

N43