Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   historisches ToString(var: Param; Size: Byte) welche Unit? (https://www.delphipraxis.net/206701-historisches-tostring-var-param%3B-size-byte-welche-unit.html)

mschaefer 20. Jan 2021 18:44

Delphi-Version: 5

historisches ToString(var: Param; Size: Byte) welche Unit?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Moin,

habe hier etwas angestaubten Delphi-Code und ich weiß nicht wo in welcher Unit sich die Funktion noch verstecken könnte.

DeddyH 20. Jan 2021 19:20

AW: historisches ToString(var: Param; Size: Byte) welche Unit?
 
Hast Du es einmal mit STRG + linke Maustaste versucht? Mir sagt die Funktion spontan nichts, vielleicht eine eigene Unit?

hoika 20. Jan 2021 19:33

AW: historisches ToString(var: Param; Size: Byte) welche Unit?
 
Hallo,
ich würde ja auf die Unit System tippen, aber das ist nicht historisch.

http://www.delphibasics.co.uk/Method...ethod=ToString

OK, Delphi 5 habe ich nicht gesehen.
Bei Delphi5 wird es wahrscheinlich keine System-Unit, sondern was selbstgeschriebenes sein.

DeddyH 20. Jan 2021 20:57

AW: historisches ToString(var: Param; Size: Byte) welche Unit?
 
In neueren Delphi-Versionen gibt es in der SysUtils-Unit div. record-Helper, die eine ToString-Methode implementieren, aber die gehören dann auch zu den entsprechenden Typen und haben eine parameterlose Signatur

mschaefer 21. Jan 2021 12:10

AW: historisches ToString(var: Param; Size: Byte) welche Unit?
 
Delphi-Quellcode:

function ToString(var param; size : byte):ansistring;
var i:integer;
begin
 setlength(result,size);
 for i:=0 to size-1 do
   result[i+1] := (pansichar(@param))[i];
end;
Sorry es war wohl was "selbstgestricktes" (nicht von mir). Die Maus hat es bei mir leider nicht gebracht.
Aber vielen Dank fürs Fachsimpeln, das hilft beim Durchhalten!

Grüße in die Runde

Martin


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:03 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz