Fehler: Inkompatible Typen - 'Char' und 'String'?

[mo_greene]

Hallo,

habe gerade ein Problem und irgendwie ein Brett vorm Kopf - finde keine Lösung:

Delphi-Quellcode:

function TForm1.wert(zeichenkette : string) : Integer;
var
  i, zaehler : Integer;
begin
  for i := 1 to Length(zeichenkette) do
  begin
    case zeichenkette[i] of
    'A..Z' : zaehler := zaehler + 1;
    'a..z' : zaehler := zaehler + 1;
    '0..9' : zaehler := zaehler + 2;
    end;
  end;

  result := zaehler;
    
end;

Da spuckt Delphi doch glatt die Fehlermeldung aus:

Zitat:

[Pascal Fehler] uView.pas(68): E2010 Inkompatible Typen: 'Char' und 'string'

Woran liegts?

Danke!

[Apollonius]

'A..Z' ist ein String. 'A'..'Z' wäre ein Unterbereich von Char.

[mo_greene]

Danke!

[peschai]

Hallo

Noch ein kleiner tip, verwende wenn möglich "const" bei Zeichenketten bei der Parameterübergabe von Funktionen. Das spart eine kopie des strings auf dem Stack ein ... (besser für performance und speicherverbrauch). Desweiteren hast du deine Variable "Zaehler" nicht initialisiert, aber besser noch verwende gleich "result" anstelle "zaehler" ...

Vorschlag ...

Delphi-Quellcode:

function TForm1.wert(const zeichenkette : string) : Integer; 
var 
  i : Integer; 
begin 
  result := 0;
  for i := 1 to Length(zeichenkette) do 
  begin 
    case zeichenkette[i] of 
    'A'..'Z' : result := result + 1; 
    'a'..'z' : result := result + 1; 
    '0'..'9' : result := result + 2; 
    end; 
  end; 
end;

[bernau]

Man kann's auch so schreiben

Delphi-Quellcode:

var
  i : Integer;
begin
  result := 0;
  for i := 1 to Length(zeichenkette) do
    if zeichenkette[i] in ['A'..'Z','a'..'z','0'..'9'] then
       result := result + 1;
end;

Gerd

[DeddyH]

Stimmt nicht ganz, bei Ziffern soll um 2 erhöht werden ;)

[bernau]

Zitat:

Zitat von DeddyH

Stimmt nicht ganz, bei Ziffern soll um 2 erhöht werden ;)

Übersehen. :oops:

[nicodex]

Zitat:

Zitat von bernau

Man kann's auch so schreiben

Sorgt das nicht für Probleme mit Unicode-Strings (Delphi 2009)?
Wenn ich mich recht erinnere, dann können Delphi-Sets nur 256 Elemente abbilden. Man müsste dann wieder eine case-Abfrage daraus machen.

[bernau]

Zitat:

Zitat von nicodex

Zitat:

Zitat von bernau

Man kann's auch so schreiben

Sorgt das nicht für Probleme mit Unicode-Strings (Delphi 2009)?
Wenn ich mich recht erinnere, dann können Delphi-Sets nur 256 Elemente abbilden. Man müsste dann wieder eine case-Abfrage daraus machen.

Das Set selber kann 256 verschiedene Elemente beinhalten. In diesem Fall sind es 26+26+10 = 62. Das sind weniger als 256.


Gerd

[alzaimar]

Zitat:

Zitat von bernau

Das Set selber kann 256 verschiedene Elemente beinhalten. In diesem Fall sind es 26+26+10 = 62. Das sind weniger als 256.

Das ist zwar richtig, für das 'SET' aber irrelevant. Bei einer Menge ist nicht die Anzahl der Elemente limitiert, sondern die höchste Ordnungszahl eines Elementes.

Ein 'SET' (Menge) wird intern als 32 Byte langer Bitvektor abgebildet, das entspricht einem 'Packed Array [0..255] Of Boolean'. Daraus folgt nun, das die Elemente einer Menge nur aus einem ordinalen Typ bestehen kann, der
1. maximal 256 verschiedene Werte annehmen kann und
2. dessen höchster Ordinalwert (also Ord(High(TType))) kleiner als 256 sein muss.

Ein "Char" ist somit der größte Datentyp, bei dem man mit Mengen arbeiten kann ("Byte" ist äquivalent)

Es kann sein, das Delphi 2009 dies für 'Set Of Char'-Ausdrücke anders implementiert.