Teilstrings aus String herausfiltern.

[Reinhardtinho]

Hi,

Delphi-Quellcode:

type
  TsArray = Array of String;

function GetSubStrings(AString: String; Delimiter: Char) : TsArray;
var
  i: Integer;
begin
  SetLength(result, 0);

  i := 0;

  while (Pos(Delimiter, aString) <> 0) do
  begin
    SetLength(Result, i+1);
    Result[i] := Copy(aString, 0, Pos(Delimiter, aString) - 1);
    Delete(aString, 1, Pos(Delimiter, aString));
    inc(i);
  end;

  if (Length(aString) <> 0) then
  begin
    SetLength(Result, i+1);
    Result[i] := aString;
  end;
end;

Hiermit suche ich die einzelnen SubStrings in einem Editfeld und übergebe das ganze an ein dynamische Array. Man kann natürlich auch eine Stringliste benutzen. In Delimeter musst du halt dann dein '_' angeben.

MFG
Lorenz