TurboPascal: In welcher Unit ist StrToInt deklariert ?

[turboPASCAL]

In Turbo Pascal gibt es diese Funktion nicht. Erst ab Delphi ...

Ist aber relativ einfach zu umgehen:

Delphi-Quellcode:

function StrToInt(s: string): Integer;
var
  i, Error: Integer;
begin
  Val(s, i, Error);
  StrToInt := i;
end;

function IntToStr(Value: Integer): string;
var
  s: string;
begin
  Str(Value, s);
  IntToStr := s;
end;

[Der.Kaktus]

Zitat von turboPASCAL:

In Turbo Pascal gibt es diese Funktion nicht. Erst ab Delphi ...

Ist aber relativ einfach zu umgehen:

Delphi-Quellcode:

function StrToInt(s: string): Integer;
var
  i, Error: Integer;
begin
  Val(s, i, Error);
  StrToInt := i;
end;

function IntToStr(Value: Integer): string;
var
  s: string;
begin
  Str(Value, s);
  IntToStr := s;
end;

Ahhh..da geht einem "Uralt" Programmierer das Herz auf..die Zeilen waren verstaendlich

[Dezipaitor]

man sollte aber schon den Error-Wert überprüfen!

[Neutral General]

Diese temporären (lokalen) Variablen s und i benötigt man nicht. Man kann jeweils auch direkt Result benutzen.

Gruß
Neutral General

[jbg]

Zitat von Neutral General:

Man kann jeweils auch direkt Result benutzen.

Sag das mal dem TurboPASCAL Compiler.

[Der.Kaktus]

Zitat von Neutral General:

Diese temporären (lokalen) Variablen s und i benötigt man nicht. Man kann jeweils auch direkt Result benutzen.

Gruß
Neutral General

Muss ich Dir leider widersprechen..zu Turbo-Pascal Zeiten gabs noch kein Result
[Edit] OK ausser IORESULT[/Edit] *g*

Roter Kasten war nich...trotz Zeitgleicheit *gg* @JBG

[Neutral General]

Zitat von jbg:

Zitat von Neutral General:

Man kann jeweils auch direkt Result benutzen.

Sag das mal dem TurboPASCAL Compiler.

Oh da ist was dran

[grenzgaenger]

Zitat von Der.Kaktus:

Zitat von turboPASCAL:

In Turbo Pascal gibt es diese Funktion nicht. Erst ab Delphi ...

Ist aber relativ einfach zu umgehen:

Delphi-Quellcode:

function StrToInt(s: string): Integer;
var
  i, Error: Integer;
begin
  Val(s, i, Error);
  StrToInt := i;
end;

function IntToStr(Value: Integer): string;
var
  s: string;
begin
  Str(Value, s);
  IntToStr := s;
end;

Ahhh..da geht einem "Uralt" Programmierer das Herz auf..die Zeilen waren verstaendlich

aber die funktionalität ist noch unterschiedlich, val/str arbeitet zwingend mit dem "." als dezimaltrennzeichen, während inttostr/strtoint mit dem "decimalseparator" arbeiten. liegt wohl auch daran, dass zu dieser zeit noch keine ländereinstellungen zum dezimaltrennzeichen unter DOS möglich waren ...


btw: inttostr wurde mit D1 eingeführt, das Result glaub noch später...

[p80286]

Zitat von grenzgaenger:

aber die funktionalität ist noch unterschiedlich, val/str arbeitet zwingend mit dem "." als dezimaltrennzeichen, während inttostr/strtoint mit dem "decimalseparator" arbeiten. liegt wohl auch daran, dass zu dieser zeit noch keine ländereinstellungen zum dezimaltrennzeichen unter DOS möglich waren ... ;-)

Ja und ? Falls gewünscht wird eben aus dem '.' ein Komma gemacht, bzw. aus dem ',' ein Punkt.
Damals war es zwar oft nervig wenn 123.54 DM zu zahlen waren, aber da konnte noch jedes Programm mit jedem anderen.
Versuch heute mal eine Amerianische excel-Datei mit einem Deutschen Excel zu öffnen, das ist immer ein Glücksspiel.
Oracle liefert in der Standardeinstellung (bei mir) 123.45. Ein Deutsches Excel erkennt das nicht als Dezimalzahl.
Das gleiche gilt für die verschiedenen Datumsformate.
Wenn man wenigstens Importfilter definieren könnte!

Gruß
K-H