<![CDATA[Zahlen aus AnsiString]]>Hallo!

Habe folgendes Problem:

ST = Memo4->SelText;
  Memo3->Lines->Add(ST);
  Memo3->Lines->Add(" ");

  Laenge = ST.Length();
  for(k=0;k<Laenge;k++)
  {
  :arrow_right:    if( IsNumeric(ST[k]))  
    {
      Zaehler++;
      Ausgabe[Zaehler]=ST[k];
    }
  }
  AT = StrToInt(Ausgabe);

Gibt beim kompilieren keinen Fehler, erst zur Laufzeit entsteht eine Accessviolation.

Würde mich über hilfreiche Hinweise freuen!

Jannika

]]>https://www.c-plusplus.net/forum/topic/97495/zahlen-aus-ansistringRSS for NodeSat, 11 Jul 2026 16:55:40 GMTTue, 11 Jan 2005 13:10:03 GMT60<![CDATA[Reply to Zahlen aus AnsiString on Tue, 11 Jan 2005 13:10:03 GMT]]>Hallo!

Habe folgendes Problem:

ST = Memo4->SelText;
  Memo3->Lines->Add(ST);
  Memo3->Lines->Add(" ");

  Laenge = ST.Length();
  for(k=0;k<Laenge;k++)
  {
  :arrow_right:    if( IsNumeric(ST[k]))  
    {
      Zaehler++;
      Ausgabe[Zaehler]=ST[k];
    }
  }
  AT = StrToInt(Ausgabe);

Gibt beim kompilieren keinen Fehler, erst zur Laufzeit entsteht eine Accessviolation.

Würde mich über hilfreiche Hinweise freuen!

Jannika

]]>https://www.c-plusplus.net/forum/post/693203https://www.c-plusplus.net/forum/post/693203Tue, 11 Jan 2005 13:10:03 GMT<![CDATA[Reply to Zahlen aus AnsiString on Tue, 11 Jan 2005 13:17:07 GMT]]>Was sind Laenge (int?), ST (AnsiString?) und AT (int?)?
Arbeitest du mit Pointern?

]]>https://www.c-plusplus.net/forum/post/693215https://www.c-plusplus.net/forum/post/693215Tue, 11 Jan 2005 13:17:07 GMT<![CDATA[Reply to Zahlen aus AnsiString on Tue, 11 Jan 2005 13:27:13 GMT]]>Upps habe ich vergessen zu kopieren:

AnsiString        ST, Ausgabe;
  int               k,Zaehler=0,Laenge, AT;
  ST = Memo4->SelText;
  Memo3->Lines->Add(ST);
  Memo3->Lines->Add(" ");

  Laenge = ST.Length();
  for(k=1;k<=Laenge;k++)
  {
    if( IsNumeric(ST[k]))
    {
      Zaehler++;
 :arrow_right:       Ausgabe[Zaehler]=ST[k];
    }
  }
  AT = StrToInt(Ausgabe);

Also, durch Änderung des Startwertes von k von 0 auf 1 geht mein Programm jetzt ein Stückchen weiter.

ST = "WS9 "; // Zwei Leerzeichen hinten dran!

Die Abfrage IsNumeric klappt, wenn er allerdings in die Anweisung nach der if-Abfrage reinspringt, wird Zähler zwar auf 1 gesetzt, aber bei der nächsten Zeile kommt wieder eine Accessviolation!

]]>https://www.c-plusplus.net/forum/post/693228https://www.c-plusplus.net/forum/post/693228Tue, 11 Jan 2005 13:27:13 GMT<![CDATA[Reply to Zahlen aus AnsiString on Tue, 11 Jan 2005 13:27:32 GMT]]>Ich nehme mal an ST ist ein AnsiString. Da beginnt die Zählung bei 1 und nicht bei 0.
also statt

for(k=0;k<Laenge;k++)

lieber

for(k=1;k<=Laenge;k++)
]]>https://www.c-plusplus.net/forum/post/693230https://www.c-plusplus.net/forum/post/693230Tue, 11 Jan 2005 13:27:32 GMT<![CDATA[Reply to Zahlen aus AnsiString on Tue, 11 Jan 2005 13:30:16 GMT]]>Das Erste Problem ist also gelöst. 😉
Du kannst doch Ausgabe so nichts zuweisen. Intern hat der String doch die Länge 0.
also lieber

Ausgabe+=ST[k];

statt

Ausgabe[Zaehler]=ST[k];
]]>https://www.c-plusplus.net/forum/post/693237https://www.c-plusplus.net/forum/post/693237Tue, 11 Jan 2005 13:30:16 GMT<![CDATA[Reply to Zahlen aus AnsiString on Tue, 11 Jan 2005 13:37:29 GMT]]>Vielen Dank für eure Hilfe, aber ich habe inzwischen selbst eine Lösung gefunden 🕶 :

ST = ST.TrimRight();
  ST = ST.Delete(1,2);
/*  Laenge = ST.Length();
  for(k=1;k<=Laenge;k++)
  {
    if( IsNumeric(ST[k]))
    {
      Zaehler++;
      Ausgabe[Zaehler]=ST[k];
    }
  }*/
  AT = StrToInt(ST)-1;

Mit Trim habe ich einfach die Leerzeichen weggeschnitten und da IMMER WS am Anfang steht kann ich getrost Delete(1,2) ausführen!

Bis bald zum nächsten Problem.... 😉

Eure Jannika

]]>https://www.c-plusplus.net/forum/post/693242https://www.c-plusplus.net/forum/post/693242Tue, 11 Jan 2005 13:37:29 GMT