Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Prozedur zusammenbauen
17. Nov 2012, 21:55
IMHO wird etwas gesucht das so aussehen soll, aber natürlich nicht funktioniert
Delphi-Quellcode:
Type
TStringArray=Array of String;
procedure TForm5.Button1Click(Sender: TObject);
var
DerWäreschönWennAlsConstArrayÜbergebbar:TStringArray;
begin
SetLength(a,2);
DerWäreschönWennAlsConstArrayÜbergebbar[0] := 'eins';
DerWäreschönWennAlsConstArrayÜbergebbar[1] := 'zwei';
Showmessage(Format('Ausgabe 1. %s 2. %s',DerWäreschönWennAlsConstArrayÜbergebbar));
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|