|
Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
Delphi 2007 Professional
|
Probleme mit Case anweisung
2. Nov 2006, 22:32
Delphi-Quellcode:
Var
land : string;
prov : string;
begin
land := Copy(MaskEdit6.Text, 1, Length(MaskEdit6.Text)-2);
prov := MaskEdit6.Text [6];
case (land) of
'0000':Label53.Caption := 'Keiner';
'020C':Label53.Caption := 'Deutschland';
'01d0':Label53.Caption := 'Österreich';
'01c8':Label53.Caption := 'Schweiz';
er sucht einen ordinal type
Marcel
|