13 stellige zahl bearbeiten

[schoenwetterflieger]

Na ihrs!! wunderschönen guten morgen!!!

Hab da ein mega Prob!!!

Ich möchte eine 13 stellige zahl so auseinander nehmen, dass ich die einzelnen zahlenglieder einzeln bearbeiten kann. Das wichtigste ist, dass man die erste ziffer von links als erstes bearbeitet; dann die zweite von links...!!!

habt ihr nen einfachen code für mich??

hegdl

mfg schoenwetterflieger

[schoenwetterflieger]

ich will ja nich stress machen, aber ich brauch das noch diese stunde!!!

Mega WICHTIG!!
Biiiiiiiiiiiitte helfen

:mrgreen:
hegdl
mfg schoenwetterflieger

[dfried]

Ich versteh das Problem nicht ganz, wandel die Zahl doch einfach in einen String um und lauf den Zeichenweise durch. Oder hab ch nicht richtig verstanden was du machen willst?

[Schaedel]

wandele die Zahl in einen String

und dann greifst du auf die Strigvariable so zu

MeineStringvariable[1] <-- das ist dann die 1. Zahl

[alzaimar]

Ah, ich glaube, er muss zur Schule und brauch bis 9:30 etwas Fertiges... Stimmts?

[tomsel]

Ist eh offline. Er ist wohl schon auf dem Weg zur "Nullrunde" (was seine Punkte zu dieser Hausaufgabe angeht)

[Schaedel]

Tja was will man machen?
Die Menschheit hat immer weniger Zeit...
Dabei ist der Tag immer noch 24h lang

[dfried]

Zitat:

Zitat von Schaedel

Dabei ist der Tag immer noch 24h lang

Und wenn das nicht reicht nehmen wir halt noch die Nacht dazu :mrgreen:

[schoenwetterflieger]

joh sehr gut!!

aber erklär das mal im zusammenhang!

es soll aus einem edit1.text die 13-stellige zahl bearbeitet werden!!!
aber eben die erste zahl von links soll als erstes bearbeitet werden, dann die zweite von links...


wie in string wandeln??

bitte helfen noch 25 minuten habsch!!!


hegdl

mfg schoenwetterflieger

[Ferber]

@alzaimer: Er sitzt vielleicht im Informatikunterricht und braucht die Lösung bis zur Pause. :mrgreen:

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

[angos]

Zitat:

Zitat von alzaimar

Zitat:

Zitat von angos

Zitat:

Zahl := strtoint(Meinstring[1]);

da sollte doch noch die 1 ersetzt werden ;)

Womit denn? Mit ner 2? :wall:

nein, hab aber die korrekte Lösung mit Absicht nicht hingeschrieben, weil die Anfrage von Schönwetterflieger einfach nur Frech war...jetzt sollte er schon in der Schule sitzen, daher: stat 1 ein i

[Tonic1024]

Zitat:

Zitat von Schaedel

Aber ein guter Lehrer wird erkennen das er den QUelltext aus dem Netz hat ..

Die werden auch immer seltener. Wer wirklich Ahnung hat wird kein Lehrer und wer Lehrer ist hat meisst keine Lust sich kurz vor seiner Rente noch damit auseinandersetzen.

Soll jetzt kein pauschalgenörgele sein, hab ich als "Externer" in diversen Schulen leider allzuoft beobachten müssen. :(

Toni

[kalmi01]

Zitat:

Zitat von Tonic"

Wer wirklich Ahnung hat wird kein Lehrer

:thumb: :thumb: :thumb:
Ist der Spruch Urheberrechtlich geschützt ? :wink:
Oder darf ich den verwenden ?

Ich kann Dir in der Sache nur zustimmen.
Trifft nicht auf alle zu, aber viele.

[emsländer]

@Schönwetterflieger: Wie wäre es denn mal mit "DANKE" oder so? - und einer evtl. Erklärung Deines Drängens.

Würde die Situation bestimmt entschärfen.

@Tonic1024: Klasse Spruch! Stimmt 100%ig !

Gruss

EL

[DerDan]

Für mich gelten Lehrer auch als unbelehrbar :-)

Aber es gibt trotzdem gute...


mfg DerDan