AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit procedure Split()

Ein Thema von uragan · begonnen am 27. Apr 2011 · letzter Beitrag vom 1. Mai 2011
Antwort Antwort
FredlFesl

Registriert seit: 19. Apr 2011
293 Beiträge
 
Delphi 2009 Enterprise
 
#1

AW: Problem mit procedure Split()

  Alt 28. Apr 2011, 17:53
Also wenn ich einen PChar habe, und der zeigt auf Strings, die mit #0 voneinander getrennt sind, und zusätzlich habe ich noch die Gesamtlänge des Speicherbereiches, dann liegt es doch nahe, einfach mal durchzulaufen und ein ARRAY OF PCHAR oder eine TList zu erstellen, wenn man auf ein #0 stößt

Delphi-Quellcode:
Function SplitByNullChar (P : PChar; N : Integer) : TList;
Var
  I : Integer;
  C : Char;
Begin
  Result := TList.Create;
  Result.Add(P);
  For I :=1 to N-1 Do begin
    C := P^;
    Inc(P);
    If C=#0 then Result.Add(P);
  End;
End;
Voraussetzung: Hinter dem letzten String ist ein #0.

Danach stehen in der TList lauter PChars, die jeweils auf das erste Zeichen des Tokens zeigen. Terminiert wird dieser String ja durch ein #0, nämlich den nächsten Delimiter.
Das Bild hängt schief.
  Mit Zitat antworten Zitat
Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Problem mit procedure Split()

  Alt 28. Apr 2011, 18:20
Klingt elegant (ausser dass man höllisch aufpassen muss, wer die TList wieder freigibt). Aber soweit ich das verstanden habe MUSS es eine TStringList sein (Aufgabenstellung?). So gesehen läge es auch nahe, eine eigene Ableitung zu machen und im Setter TMyStrings.SetDelimitedText die #0 extra freundlich zu behandeln.
  Mit Zitat antworten Zitat
uragan

Registriert seit: 27. Apr 2011
12 Beiträge
 
#3

AW: Problem mit procedure Split()

  Alt 29. Apr 2011, 22:29
Function SplitByNullChar (P : PChar; N : Integer) : TList;

PChar gibt es nicht
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#4

AW: Problem mit procedure Split()

  Alt 29. Apr 2011, 22:41
Function SplitByNullChar (P : PChar; N : Integer) : TList;

PChar gibt es nicht
warum PChar und nicht pointer of char

gruss
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.376 Beiträge
 
Delphi 12 Athens
 
#5

AW: Problem mit procedure Split()

  Alt 29. Apr 2011, 23:40
Weil PChar schon ein Pointer auf einen oder mehrere Chars ist?

Wenn es PChar nicht gibt, dann stimmt irgendwas nicht
und man sollte erstmal dieses Problem beheben.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#6

AW: Problem mit procedure Split()

  Alt 30. Apr 2011, 00:01
Weil PChar schon ein Pointer auf einen oder mehrere Chars ist?

Wenn es PChar nicht gibt, dann stimmt irgendwas nicht
und man sollte erstmal dieses Problem beheben.
LOL

Ist mir schon klar..
Aber anscheinend hat er kein PChar oder steht ihm nicht zur verfügung.
Zitat:
PChar gibt es nicht
Also muss er den Pointer selbst erstellen als Pointer of Char.

gruss
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.376 Beiträge
 
Delphi 12 Athens
 
#7

AW: Problem mit procedure Split()

  Alt 30. Apr 2011, 00:10
Zitat:
PChar gibt es nicht
Also muss er den Pointer selbst erstellen als Pointer of Char.
Oder er sagt uns mal warum es PChar nicht gibt, bzw. ob dieses einfach nur nicht verwendet werden darf.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Antwort Antwort


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 04:50 Uhr.
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