Teile von "array of char" in "String" kopieren

[shmia]

Zitat:

Zitat von Bubblegum

Das kann ich nicht kompilieren -> inkompatible Typen

Siehe korrigierten Beitrag #7.

[sk0r]

Ich gehe mal davon aus, dass du einen Bereich im Array kopieren willst.
Also nicht nur von Null bis zu einer bestimmten Zahl, sondern auch von
Vier auf eine bestimmte Zahl. Mit CopyMemory kannst du Chars kopieren.
Durch den letzten Parameter kannst du bestimmen, wie viele Buchstaben du
kopieren willst. Den Startpunkt kannst du ermitteln, indem du die Startadresse
mit der gewünschten Startzahl addierst. Beispiel:

Delphi-Quellcode:

procedure CopyArrayPart(lpszDest: PString; lpszSource: Pointer; dwStart, dwLength: DWord);
var
  lpszStringToPChar: PChar;
begin
  Dec(dwStart); //dwStart verringern, damit man nicht bei Null anfangen muss (Char Start bei Pascal Strings ist ja bei Eins und nicht bei Null, wie es bei nullterminierenden Strings der Fall ist).
  GetMem(lpszStringToPChar, dwStart + dwLength); //Speicher für ein PChar allozieren (so groß, dass man die gewünschten Buchstaben speichern kann)
  CopyMemory(lpszStringToPChar, Pointer(Cardinal(lpszSource) + dwStart), dwLength); //Die angegebene Anzahl der Buchstaben von der Startaddresse + ItemIndex kopieren
  lpszDest^ := strpas(lpszStringToPChar); //PChar in den String kopieren
  FreeMem(lpszStringToPChar, dwStart + dwLength); //PChars Speicher leeren
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  lol: array[0..27-1] of Char;
  kaka: String;
  g: Byte;
begin
  //Das Char Array mit dem ABC LowerCase füllen
  for g := 0 to 27-2 do
    lol[g] := chr(g+97);

  kaka := ''; //Leerer String

  CopyArrayPart(@kaka, @lol, 3, 5); //Ab dem dritten(eigentlich viertem) Buchstaben anfangen und von da an fünf Buchstaben kopieren

  ShowMessage(kaka);

  exitprocess(0);
end;

Habe das gerade aus dem Kopf geschrieben. Ist sicherlich verbesserungsbedürftig.^^
Ob es jetzt schön schnell ist, weiß ich nicht. Ich finde es aber nicht so umständlich,
als wenn man eine For-Schleife benutzt.

Mfg: sk0r

[marabu]

Hallo Andreas,

Zitat:

Zitat von shmia

... das funktioniert zwar, ist aber nicht resourcensparend. ...

ich weiß, es ist auch nicht sehr schnell - ich kenne die Interna. Hätte ich deinen Beitrag gesehen, dann wäre mir klar gewesen, dass es um Geschwindigkeit geht. Der Ansatz mit Copy() hat nur den einen Vorteil: Er operiert auf der höchsten Abstraktionsstufe.

Freundliche Grüße