Hallo,

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

zusammenfalten · markieren

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!

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

Danke!

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

zusammenfalten · markieren

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;

Man kann's auch so schreiben

markieren

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

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

Zitat von DeddyH:

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

Übersehen.

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.

Zitat von nicodex:

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

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.