AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

ANSISTRING unter Linux verfügbar ???

Ein Thema von bernhard_LA · begonnen am 12. Jun 2018 · letzter Beitrag vom 24. Jun 2018
Antwort Antwort
Seite 5 von 5   « Erste     345
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.073 Beiträge
 
Delphi 7 Personal
 
#41

AW: ANSISTRING unter Linux verfügbar ???

  Alt 16. Jun 2018, 12:14
das sizeof(ansichar) ist doch eh überflüssig. Wenn dann müßte es ein sizeof(char) sein, da der 8- oder 16-bittig sein kann. Daß dann der Savestring:String definiert sein muß, sollte klar sein.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#42

AW: ANSISTRING unter Linux verfügbar ???

  Alt 16. Jun 2018, 16:35
Ja, ein SizeOf auf einen "festen" Typen, der sich eh niemals ändert und der auch noch 1 ist. das ist schon bissl sinnlos.

Wenn dann müßte es ein sizeof(char) sein, .... Daß dann der Savestring:String definiert sein muß, sollte klar sein.
Prizipiell richtig, aber gerade das ist total falsch und extrem gefährlich.

Sowas macht man niemals,
ohne beim Lesen nicht alle möglichen Formate zu implementieren und bei Speichern auch das Format mit zu speichern, damit man beim Lesen weiß wie es gelesen werden muß.
Gut, man kann beim Lesen nur Einwas implementieren, aber muß dann einen Fehler werfen, wenn ein unbekanntes/falsche Format kommt.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
801 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#43

AW: ANSISTRING unter Linux verfügbar ???

  Alt 23. Jun 2018, 23:47
was entspricht dann PAnsiChar , wenn ich AnsiChar durch TBytes ersetze ?

Code beispiel


Delphi-Quellcode:

type
  TReadBuffer = record
    BufferBytes: array of Byte;
    procedure clear;
  end;


function BytestoString(BytesBuffer: TReadBuffer): AnsiString;
var
  arraylength: integer;
  s: AnsiString;
begin

  arraylength := high(BytesBuffer.BufferBytes) + 1;
  SetString(s, PAnsiChar(@BytesBuffer.BufferBytes[0]), arraylength);
  Result := s;

end;
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
6.916 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#44

AW: ANSISTRING unter Linux verfügbar ???

  Alt 24. Jun 2018, 03:22
Wo möchtest du dort jetzt etwas ersetzen? AnsiString durch TBytes? Meinst du das?
Delphi-Quellcode:
type
  TReadBuffer = record
    BufferBytes: array of Byte;
    class operator implicit(const ABuffer: TReadBuffer): TBytes;
    procedure Clear;
  end;

class operator TReadBuffer.implicit(const ABuffer: TReadBuffer): TBytes;
begin
  SetLength(Result, Length(ABuffer.BufferBytes));
  CopyMemory(@Result[0], @ABuffer.BufferBytes[0], Length(ABuffer.BufferBytes));
end;

var
  TestBuffer: TReadBuffer;
  TestBytes: TBytes;
begin
  TestBuffer.BufferBytes := [1,4,5];
  TestBytes := TestBuffer;
  ShowMessage(Format('%d: [%d, %d, %d]', [Length(TestBytes), TestBytes[0], TestBytes[1], TestBytes[2]]));
end;
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2018 by Daniel R. Wolf