Forum: Sonstige Fragen zu Delphi
by Gandimann,
4. Dez 2020
Wieder was dazu gelernt....... Vielen Dank für die ausführliche Erklärung und nette Anweisungen:thumb:
Forum: Sonstige Fragen zu Delphi
by Gandimann,
4. Dez 2020
Danke Andreas13,
intToStr war leider nicht einsetzbar.
Ich habe so hinbekommen:
Function LongToStr(L: LongWord; N : integer): String;
var
S: String;
i:integer ;
begin
Result := ' ';
Forum: Sonstige Fragen zu Delphi
by Gandimann,
4. Dez 2020
Hello Freunde,
ich versuche dieser Funktion genau umgekehrt mit Delphi zu schreiben leider krige ich nicht hin kann bitte jemand mal schauen ?
Function StrToLong(const S: AnsiString): LongWord;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(S) do
Inc(Result, Ord(S) shl (32 - 8*i))