Wie kann ich einen String (z.B. strzahl:=edit1.text) der 30 Stellen hat in einen integer umwandeln, so dass ich mit ihm rechnen kann??
Hat da jemand ne Idee?

Gruß AK

P.S. bin neu hier und begrüsse mal alle members hier

Du musst einfach StrToInt() noch hinzufügen!

strzahl:=StrToInt(edit1.text);

Das hat natürlich den Nachteil, dass es einen schweren Fehler gibt, wenn mal ein Buchstabe mit im Feld steht!

Es gibt keinen ganzzahligen Datentypen, der standardmäßig bei Delphi dabei ist und der eine derart große Zahl darstellen kann.

Dazu benötigst Du einen neuen Datentypen. Die Frage danach tauchte hier im Forum schon mal auf. Müsstest Du mal suchen.
MfG,
Peter

<edit>
Hier ist der Thread!
</edit>

Hallo Peter Lustig,

Ich habe diese Aufgabe in einem Einstellungstest bekommen und hatte dafür nur 30 Minuten Zeit. Es geht hier "nur" um 30 stellige Integerzahlen und nicht wie in deinem auch sehr hilfreichem Link um Zahlen bis 500 Stellen. Da der Quelltext in deinem Link sehr sehr gross ist, denke ich mal dass es da noch ne andere Lösung geben muss.
Wäre für jeden Tip dankbar.

Gruß AK

Der vorgegebene Code in meinem Einstellungstest hatte 2 Funktionen zum umwandeln, einmal von "BigIntinString" und einmal von "StringinBigInt".
Dann noch eine dritte Funktion zum addieren der beiden BigIntegers.
Als Type war BigInt und ein Fragezeichen (Type BigInt = ?), welchen Typ ich da am besten verwende weiss ich auch noch nicht.

Gruß AK

Hallo!

Das ist aber ein gemeiner Test. Und dazu so fern der Praxis!

Ich glaube, ich hätte angefangen, mir zu überlegen, wie viel Bit ich für die Darstellung einer 30-stelligen Dezimal-Zahl benötige. Um einen Wertebereich von 10^30 Kombinationsmöglichkeiten mit einer binären Zahl abzudecken, muss man also eine Potenz finden für die gilt 2^x>=10^30. Diese Potenz gibt einem dann die Anzahl der Bit, die der Datentyp benötigen würde.

Das Addieren wäre ja noch einfach, aber wie man dann einen Textstring in diesen Typ umwandelt... Keine Ahnung!

Ihr hattet nicht zufälligerweise eine Internetverbindung nach draussen zur Verfügung? Vielleicht war das so ein Test ala "Schauen wir mal, ob sie sich einen abbrechen bei der Realisierung oder lieber sofort so klug sind und sich die Quellen aus dem Netz holen. Man muss ja nicht wissen, wie es geht, man muss nur wisssen, wo es steht.".

Cu,
Udontknow

Naja es war auf einem Laptop, und die Internetverbindung habe ich nicht gecheckt, ich denka mal nicht dass es darum ging.
Hier mal die original Aufgabe, vielleicht war ja auch nur das Prinzip und die Addier-Routine gefragt. Der "Prüfer" meinte auch dass ich mir die aufgabenstellung genau durchlesen sollte, und meinte, "ich wäre nicht der erste der daran gescheitert ist". Hier also die original Aufgabe:

"Entwerfen Sie eine Unit für das Durchführen der Grundrechenarten mit 30-stelligen Ganzen Zahlen. Skizzieren sie dabei kurz das Prinzip und implementieren sie eine entsprechende Addier-Routine"

aber ohen dem umwandeln der Strings aus dem Textfeld kann ich nicht addieren....hmmmm....

Gruß AK

aber BigInt gibt es doch gar nicht ![/code]

@AK:
Ha! Es ist nicht von DEZIMAL-Zahlen die Rede! Du kannst also einfach Binärzahlen als Eingabe verlangen! Eine solche Umsetzung von String in ein Array ist einfach.

@Dude: Dieser Datentyp plus Umwandlungsfunktionen sollte erstellt werden .

Cu,
Udontknow

Zitat:

Ich habe diese Aufgabe in einem Einstellungstest bekommen und hatte dafür nur 30 Minuten Zeit. Es geht hier "nur" um 30 stellige Integerzahlen und nicht wie in deinem auch sehr hilfreichem Link um Zahlen bis 500 Stellen. Da der Quelltext in deinem Link sehr sehr gross ist, denke ich mal dass es da noch ne andere Lösung geben muss.

Konnte ich ja nicht wissen!

Der Vorschlag von Udontknow ist eigentlich schon ziemlich gut. Wenn ich mich nicht verrechnet habe, brauchst Du 100 Bits plus eins fürs Vorzeichen. Also:
Type BigInt = Array[0..100] OF Boolean;

Eine Addition implementierst Du so, wie Du es auch bei einer schriftlichen Addition machst!

Waren die Funktionen zur Umwandlung von und nach String jetzt gegeben oder musste man die noch schreiben? In der Aufgabenstellung steht zumindest nicht, dass man das muss!

MfG,
Peter

So wie ak das jetzt geschrieben hat, muss man gar nicht die Eingabe bzw. Umwandlung realisieren. Man muss einfach nur einen Datentyp erstellen und die Rechenoperation "addieren" implementieren.

Cu,
Udontknow

Nee nee auf dem Laptop waren bei den 2 Umwandlungsfunktionen (BigInt in String und umgekehrt) Fragezeichen gewesen ( den Funktionen fehlte das "wehsentliche", nur das "drumherum" war da). Also denke ich mal, dass diese auch entwickelt werden mussten. Da das Formular ja auch schon da war, sollte die Funktionalität dann bestimmt getestet werden.

Gruß

aber bis jetzt ist es schon sehr hilfreich

Bei der Aufgabenstellung und zusammen mit dem Hinweis der Prüfers, die Aufgabenstellung genau durchzulesen und mit der begrenzten Zeit glaube ich nicht, dass Du eine solche Routine schreiben musst.
Sonst stände da ja nicht: "Schreiben Sie eine Routine zur Addition" sondern "Schreiben Sie eine Routine zur Addition und Umwandlung von und nach String".
Die Fragezeichen in den entsprechenden Funktionen standen wahrscheinlich nur da, damit man keinen Hinweis bekommt, wie der Datentyp aussieht!

Achso. Naja, da aber eben ind er Aufgabe keine Rede davon war, daß es Dezimalzahlen in Strings sein müssen, die die Funktionen annehmen bzw. ausgeben, ist, wie schon gesagt, eine Umwandlung recht einfach. Wenn wir mal Peter Lustigs Ansatz nehmen:



Cu,
Udontknow

@Peter Lustig, ich denke du hast recht, 30 minuten sind wirklich ein bisschen wenig für alles.
Gut jetzt haben wir den Typen : Type BigInt = Array[0..100] OF Boolean;

jetzt fehlt "nur" noch die Addierroutine, wobei ich gegen eine komplette Umandlungsroutine nicht haben würde .

Gruß

@udontknow, ich teste gerade mal deine Umwandlungsroutine. Thanx

Ohne Gewähr:



Cu,
Udontknow

Wie würde denn eine StrToBigInt Funktion aussehen???

Gruß

Ich habe mal folgendes versucht (mal etwas code):

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
BigInt = Array[0..100] OF Boolean;
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function BigIntToStr(Value:BigInt):String;
var i:integer;
begin
Result:='';
for i:=Low(Value) to High(Value) do
if Value[i] then
Result:=Result+'1'
else
Result:=Result+'0';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
wert1 :BigInt;

begin
wert1:= ? ;
edit2.Text:=BigIntToStr(wert1);
end;

end.

--------------------------------
Wie kann ich in der button1 click procedure dem wert1 etwas zuweisen???

entweder komt die fehlermeldung :
[Error] Unit1.pas(43): Integer constant too large
oder
[Error] Unit1.pas(43): Incompatible types: 'BigInt' and 'Int64'

bin etwas ratlos.

Gruß