[delphi] replace spaties

[JSchut]

ik mp3-files op uit een directory en haal de gegevens eruit (artist en title).

de artisist staat in 30 bytes.
stel nou dat de naam van de artist 'got' is dan hou je dus 27 bytes over en deze worden bij de output als spaties weergegeven.

die spaties wil ik dan weghalen.

maar als de srtist 'g o t' is dan moeten die spaties uiteraard wel blijven staan

iemand een idee

[jelmervos]

Trim?

Trims leading and trailing spaces and control characters from a string.

[JSchut]

wow zo simpel dat ik daar zelf niet aangedacht heb .......

[jelmervos]

Op maandag 08 april 2002 14:50 schreef JSchut het volgende:
wow zo simpel dat ik daar zelf niet aangedacht heb .......

Tsja, je moet het maar net weten.

[TheLunatic]

Of zelf maken:

while MP3Naam[Length(MP3Naam)]=' ' do Delete(MP3Naam, Length(MP3Naam),1);

[jelmervos]

code:

function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Result := '' else
  begin
    while S[L] <= ' ' do Dec(L);
    Result := Copy(S, I, L - I + 1);
  end;
end;