13 stellige zahl bearbeiten

[Ferber]

13-Stellige Zahl - Klingt irgendwie nach EAN und Checksumm modulo 10 :mrgreen:

[Schaedel]

Ohman ...
Ach komm scheiß drauf hier der Code -.-

Delphi-Quellcode:

Var 
  meinstring : string;
  Zahl,i : integer;
begin
  meinstring := Edit1.text ;
  for i := 1 to length(meinstring) do
    Zahl := strtoint(Meinstring[i]);
    // bearbeitungsprozedure
  end;

end;

sorry an die anderen ich konnt nich zusehen -.-

[dfried]

Zitat:

Zitat von Schaedel

Delphi-Quellcode:

Var 
  meinstring : string;
  Zahl,i : integer;
begin
  meinstring := Edit1.text ;
  for i := 1 to length(meinstring) do
  begin // <-- das hat gefehlt
    Zahl := strtoint(Meinstring[1]);
    // bearbeitungsprozedure
  end;

end;

Ein Begin hat noch gefehlt :-)

Zitat:

Zitat von Schaedel

sorry an die anderen ich konnt nich zusehen -.-

Und wieder ist einer schwach geworden.

[alzaimar]

Zitat:

Zitat von dfried

Und wieder ist einer schwach geworden.

Buuuuuh! Spalter! :shock:

Verft ten Purchen chu Poden!

http://www.delphipraxis.net/internal...ct.php?t=72859

[Schaedel]

Ich hatte den Theard auch schon durchgelesen :-/
Aber ein guter Lehrer wird erkennen das er den QUelltext aus dem Netz hat ..
Naja zu sehr OT jetzt...

schönen Tag noch ...

[angos]

Zitat:

Zitat von Schaedel

Ich hatte den Theard auch schon durchgelesen :-/
Aber ein guter Lehrer wird erkennen das er den QUelltext aus dem Netz hat ..
Naja zu sehr OT jetzt...

schönen Tag noch ...

zumal der quellcode auch noch nicht 100% das passende liefern wird :)

Zitat:

Zahl := strtoint(Meinstring[1]);

da sollte doch noch die 1 ersetzt werden ;)

[alzaimar]

Zitat:

Zitat von angos

Zitat:

Zahl := strtoint(Meinstring[1]);

da sollte doch noch die 1 ersetzt werden ;)

Womit denn? Mit ner 2? :wall:

[Schaedel]

nein durch i ;)
War ein Tippfehler von mir...
Naja .... Hups ;)

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Internet / LAN / ASP.NET" nach "Object-Pascal / Delphi-Language" verschoben.

[Daniel]

Um 08:21 Uhr hast Du diesen Thread erstellt und genau 21 Minuten später drängst Du auf eine Lösung?

Was glaubst Du eigentlich, wo Du hier bist? Sitzen unsere Benutzer Deiner Meinung nach nur in den Startlöchern und freuen sich auf jede Aufgabe, die man ihnen vor die Füße wirft? Im Übrigen hast Du es bis jetzt nicht für nötig befunden, auch nur ein leises Dankeschön zu hinterlassen.

Aufgabe gelöst - danke, das war's? Nö - so gehen wir hier nicht miteinander um. Halte Dich bitte an unsere Spielregeln, diese findest Du en detail in unserem Kodex.