Zitat von
Matze:
Das klingt mir nach einer weniger gut durchdachten Programmstruktur.
... das war auch mein Gedanke. Ich denke aber, ich habe jetzt verstanden, was der TE möchte. Ich würde es zwar etwas komplexer und sauberer Lösen (Programmstruktur müsste aber vermutlich ganz anders konzipiert sein), aber folgende Lösung wäre ein Ansatz:
Delphi-Quellcode:
VAR
arrayProz1, arrayProz2 : array[1..3] of String;
[...]
arrayProz1[1] := 'String1_Proz1';
arrayProz1[2] := 'String2_Proz1';
arrayProz1[3] := 'String3_Proz1';
arrayProz2[1] := 'String1_Proz2';
arrayProz2[2] := 'String2_Proz2';
arrayProz2[3] := 'String3_Proz2';
[...]
// In Prozedure 1
ShowMessage(arrayProz1[cbBox.ItemIndex]);
// In Procedure 2
ShowMessage(arrayProz2[cbBox.ItemIndex]);
[...]
... wie gesagt, nicht besonders sauber, aber ein
Ansatz!
SCRaT