title image


Smiley mit einem array behelfen?
Wie wäre em mit dieser Krücke?

type

TMyOrdStrings = (msHallo, msBlabla);

const

MyStrings: array[TMyOrdStrings] of string =('Hallo', 'Blabla');



procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(MyStrings[msBlabla]);

end;

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: