WMA Tags lesen und SCHREIBEN

[EWeiss]

Zitat von EWeiss:

So!
Neuer Versuch..

Habe jetzt mal die Funktion Split aus VB nach Delphi umgesetzt.
Verstehe nicht das so eine einfache Funktion in Delphi nicht zur verfügung steht.
Nun gut dann teste es einfach mal.

Delphi-Quellcode:

Type
  TSplitStrArray = array of String;
end;

function Split(const Source, Delimiter: String): TSplitStrArray;
var
  spCount: Integer;
  spPos: Integer;
  spLength: Integer;
  sTemp: String;
  aSplit: TSplitStrArray;

begin
  sTemp := Source;
  spCount := 0;
  spLength := Length(Delimiter) - 1;
  repeat
    spPos := Pos(Delimiter, sTemp);
    if spPos = 0 then
      break
    else begin
      Inc(spCount);
      SetLength(aSplit, spCount);
      aSplit[spCount - 1] := Copy(sTemp, 1, spPos - 1);
      Delete(sTemp, 1, spPos + spLength);
    end;

    until False;
      if Length(sTemp) > 0 then begin
        Inc(spCount);
        SetLength(aSplit, spCount);
        aSplit[spCount - 1] := sTemp;
      end;

    Result := aSplit;
end;

Aufrufen mit !

Delphi-Quellcode:

var
  spSource: TSplitStrArray;
  spDest: string;

Begin
  spSource :=  Split(TagsData.Author, #0);
  spDest := Trim(spSource[0]);
end;

Bei mir funktioniert es hundert pro
Geht bestimmt besser habe aber auf die schnelle nichts besseres umsetzen können.

Wenn ich mir das so recht überlege könnte es ausreichen wenn du einfach vor jeder deiner
Variablen TagsData den Trim Befehl setzt.
Wenns geht ok!
Die Split funktion dürfte trotzdem interessant für dich sein.
Kann man einfach mal einen String in seine bestandteile zerlegen ohne viel mühe.

gruß

Warum nmacht der hier andauernd doppelpost ?
Hmm zu schnell geklickt .. Entschuldigung!!