Problem mit einem "leeren" String

[DeddyH]

Unter neueren Delphis geht auch eine for-in-Schleife.

Delphi-Quellcode:

function countthenumbers(const a:string):integer;
var
  c: char;
begin
  Result := 0;
  for c in a do
    if c in ['0'..'9'] then
      inc(Result);
end;

Wobei der Compiler da ggf. auch eine Warnung ausgibt, je nach Version.

[diavy]

Zu erst einmal vielen Dank für eure Antworten!

Also die Methode mit

Code:

while (a<>'') and (a[i]<>'')

hat leider nicht geklappt.

Zitat:

Code:

function countthenumbers(const a:string):integer;

- wozu dient hier das const? Ist es nötig/hilfreich?

Zitat:

Code:

function countthenumbers(const a:string):integer;
var
  c: char;
begin
  Result := 0;
  for c in a do
    if c in ['0'..'9'] then
      inc(Result);
end;

Dies Methode mit c verstehe ich nicht ganz. Woher weiß das Programm wo bzw was c ist? Man definiert ja bloß die art der Variable (char). Dass dieser in einem String liegen kann ist logisch, es ist mir jedoch unbekannt woher das Programm auf diese Weise wissen soll wo es die Kondition kontrollieren soll.

Zitat:

abruch der schleife

- Wie? Ich habe dies gegoogelt und den Befehl "break" gefunden. Wenn ich ihn jedoch an jener Stelle verwende lautet die Fehlermeldung: "[Error] ex53.dpr(17): BREAK or CONTINUE outside of loop"

Vielen Dank für den Tip mit:

Code:

if a[i] in ['0','1','2','3','4','5','6','7','8','9'] then

Ich hab mir schon gedacht dass das doch irgendwie kürzer gehen MUSS.

Die Funktion length soll ich atm noch vermeiden wurde mir gesagt. Trotzdem danke!

Zitat:

Da ein Char immer ein Zeichen ist, kann es nicht "keine Zeichen" sein.

- Aber demnach wäre meine Schleife doch eine Endlos-Schleife?

Liebe Grüße und nochmal Danke!

[himitsu]

Zitat:

hat leider nicht geklappt.

Wobei das nicht wirklich eine Fehlerbeschreibung ist.
Wie lautet denn der Felher? (PS: man kann unten in den Meldungen und auch bei Messageboxen das Strg+C benutzen)


Das for-in geht intern alle Felder des Arrays oder einer Liste durch (alles was einen Enumerator implementiert hat)
und schreibt jeweils das aktuelle Feld in die Schleifenvariable.

Delphi-Quellcode:

var
  s: string;
  c: char;
  i: Integer;
begin

  for c in s do begin

    if c ... then
  end;

  for i := 1 to Length(s) do begin
    c := s[i];

    if c ... then
  end;

Das Const ist für eine Codeoptimierung, da man so den Parameter als konstant deklariert und somit Delphi keine Kopie anlegen muß.
Praktisch das Gegenteil von einem Var-Parameter, welcher als veränderlich definiert wird und wo man auch noch sagt, daß die beim Aufruf an diesen Parameter übergebene Variable verändert wird.

[diavy]

Also ich hab's mal mit der for .. in-Schleife probiert und das hat nicht hingehauen.

Code:

program ex53;
{$APPTYPE CONSOLE}

uses
SysUtils;

var
a:string;

function countthenumbers(a:string):integer;
var
x:integer;
c:char;
begin
x:=0;
for c in a do
if c in ['0','1','2','3','4','5','6','7','8','9'] then x:=x+1;
result:=x;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Please enter a string:');
readln(a);
writeln('The amount of numbers in your string is:',countthenumbers(a));
readln;
end.

--> [Error] ex53.dpr(16): Operator not applicable to this operand type
--> [Error] ex53.dpr(17): Incompatible types: 'Boolean' and 'procedure, untyped pointer or untyped parameter'
--> [Error] ex53.dpr(19): Expression expected but 'END' found

[himitsu]

For-In gibt es erst ab Delphi 2006 / Turbo Delphi.



PS:
Es gibt auch einen [delphi]-Tag, für die Codes.
Und 'ne halbwegs ordentliche Codeformatierung macht das alles bestimmt lesbarer.

[Dalai]

Zitat von himitsu:

For-In gibt es erst ab Delphi 2006 / Turbo Delphi.

Oder auch im Lazarus, jedenfalls kann ich seinen Code damit kompilieren (im Gegensatz zu Delphi 5).

Zitat:

Und 'ne halbwegs ordentliche Codeformatierung macht das alles bestimmt lesbarer.

Dem kann - oder besser gesagt muss - ich mich anschließen.

MfG Dalai