String kürzen

[sx2008]

Zitat von Davidlocke13:

Pos() und Copy() bzw. delete() haben mir geholfen

Du kannst auch auf fertige Funktionen zurückgreifen wie z.B.
http://www.delphipraxis.net/26055-st...fsplitten.html

Bei zwei Wörtern mit einem Trennzeichen lohnt sich das vielleicht nicht so ganz aber wenn du ein ähnliches Problem hast brauchst du nicht wieder bei Adam & Eva anfangen sondern kannst darauf zurückgreifen.

Sehr nützlich ist auch diese einfache Funktion:

Delphi-Quellcode:

function StrToken(var S: string; Separator: Char): string;  // kopiert aus der JCL
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;


// Beispiel
var
  s, t : string;
begin
  s := ' Wort1 - Wort2 - Wort3';
  t := StrToken(s, '-'); // splitten
  t := Trim(t); // Leerzeichen weg
  ShowMessage(t); // "Wort1"
  t := Trim(StrToken(s, '-')); // splitten & Leerzeichen weg
  ShowMessage(t); // "Wort2"
  t := Trim(StrToken(s, '-')); // splitten & Leerzeichen weg
  ShowMessage(t); // "Wort3"