Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi PChar: Zeichen rechts abschneiden? (https://www.delphipraxis.net/51783-pchar-zeichen-rechts-abschneiden.html)

Pseudemys Nelsoni 18. Aug 2005 18:45

Re: PChar: Zeichen rechts abschneiden?
 
Das würde alle Punkte löschen.

SirThornberry 18. Aug 2005 18:45

Re: PChar: Zeichen rechts abschneiden?
 
wäre aber auch unperformant, außerdem sollen nur die letzten punkte gelöscht werden
Delphi-Quellcode:
procedure RemoveLastDots(AVal: PChar);
var LLen, LLastNoDot: Integer;
begin
  LLen := Length(AVal);
  if LLen > 0 then
  begin
    LLastNoDot := LLen;
    while (LLastNoDot >= 0) and (AVal[LLastNoDot - 1] = '.') do
      dec(LLastNoDot);
    AVal[LLastNoDot] := #0;
  end;
end;
[Edit]Ich seh da grad noch nen Fehler, wird gleich behoben[/Edit]
[Edit2]Gab doch keinen Fehler[/Edit2]

Pseudemys Nelsoni 18. Aug 2005 18:54

Re: PChar: Zeichen rechts abschneiden?
 
Danke SirThornBerry, 1a :D

EDIT: Was passiert eigentlich mit den restlichen Zeichen, wenn ich in einem PChar irgendwo in der mitte einfach ein #0 setze?

SirThornberry 18. Aug 2005 19:06

Re: PChar: Zeichen rechts abschneiden?
 
noch eine variante:
Delphi-Quellcode:
procedure RemoveLastDots(AVal: PChar);
var LMax: PChar;
begin
  LMax := AVal + Length(AVal) - 1;
  while (LMax >= AVal) and (LMax[0] = '.') do
    dec(LMax);
  LMax[1] := #0;
end;

Dax 18. Aug 2005 19:07

Re: PChar: Zeichen rechts abschneiden?
 
Die sind noch da und belegen weiter Speicher, aber #0 als Stringterminator sagt einfach "hier is Ende", und weiter geht der String dann nicht.

SirThornberry 18. Aug 2005 19:22

Re: PChar: Zeichen rechts abschneiden?
 
@dax: das es weiter da ist weiß ich, aber da es um PChar geht bin ich einfach davon ausgegangen das es um 0 terminierte Strings geht.

Dax 18. Aug 2005 19:24

Re: PChar: Zeichen rechts abschneiden?
 
@Sir: Ich bezog mich auf nachfolgendes ;-)
Zitat:

Zitat von Pseudemys Nelsoni
EDIT: Was passiert eigentlich mit den restlichen Zeichen, wenn ich in einem PChar irgendwo in der mitte einfach ein #0 setze?


SirThornberry 18. Aug 2005 19:29

Re: PChar: Zeichen rechts abschneiden?
 
oh, ich hatte nicht gesehen das dort editiert wurde.

Pseudemys Nelsoni 18. Aug 2005 19:54

Re: PChar: Zeichen rechts abschneiden?
 
Danke thornberry,

schoen klein der code und funkt :)

@dax: Ich weiss schon das das #0 "ende" bedeutet ;) nur frag ich mich, wer oder was die restlichen zeichen nachher aus dem string freigibt. hmm... also die nach dem gesetztn #0

marabu 18. Aug 2005 20:14

Re: PChar: Zeichen rechts abschneiden?
 
Zitat:

Zitat von Pseudemys Nelsoni
frag ich mich, wer oder was die restlichen zeichen nachher aus dem string freigibt. hmm... also die nach dem gesetztn #0

Das macht der Code, der den Speicher für deinen String ursprünglich allokiert hat. Der schaut nämlich nicht nach dem von dir eingestreuten #0, sondern nimmt einfach die Größenangabe, die er sich gemerkt hat.

Zitat:

Zitat von Pseudemys Nelsoni
Wann würden AVs auftreten?

Als ich mich noch mit solchen Fragen beschäftigt habe, da gab es eine global bzw. local descriptor table, in der Prozessor und MMU informiert wurden, welche Zugriffe auf welchen Speicher erlaubt sind. Ein Zugriff auf die falschen Adressen sollte vom OS erkannt und gemeldet werden.

marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:52 Uhr.
Seite 2 von 3     12 3      

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