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.

[bernau]

Zitat:

Zitat von 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.

Hast Recht.

[bernau]

Zitat:

Zitat von alzaimar

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

Habe D2009 mal gestartet und folgenden Code Compiliert

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;

und folgenden Hinweis bekommen:

[DCC Warning] Unit1.pas(34): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

Damit dürfe schon einiges beantwortet sein.

So lange im Set nur Zeichen bis #255 vorhanden sind, und das ist bei "altem" Sourcecode immer der Fall, gibt's erst mal keine Probleme.
(Ausser den ganzen Warnings, die erscheinen. )

[Viktorii]

Zitat:

Zitat von bernau

(Ausser den ganzen Warnings, die erscheinen. )

Und wie bekommt man die weg?

Bei mir kommen die beispielsweise bei solchen Funktionen, welche ich oft verwende:

Delphi-Quellcode:

procedure TMainForm.EditFredKeyPress(Sender: TObject;
  var Key: Char);
begin
  If not(key in [#48..#57,#8])
    then key := #0;
end;

[bernau]

Zitat:

Zitat von Viktorii

Und wie bekommt man die weg?

Steht in der Warnig drinne:

Zitat:

Consider using 'CharInSet' function in 'SysUtils' unit.