CNC Parsen (PChar ?)

[stoxx]

Zitat:

aber habe Denkanstösse dazu bekommen

schau Dir mal die Funktion stringreplace an .. Die Zeilen mit den Punkten willst ja bestimmt aufdröseln oder ?

hiermal noch ein Denkanstoss

Code:

function GetStringNr(const aStr, delim: string; nr: integer): string;
begin
  with TStringList.Create do begin
    Text := StringReplace(aStr, delim, #13#10, [rfReplaceAll]);
    result := strings[nr - 1];
    free;
  end;
end;

BSP

Code:

st := getstringnr(zeile,'.', 1);