string problem

[Matthias-k]

hi leutz!

ich steck grad in ner denkklemme!

und zwar folgendes problem: ich habe einen string, in etwa dem gleich:

test -> art : test2, beschichtet, mat.765

jetzt brauch ich die 3 entscheidenden teile:

test
test2, beschichtet
mat.765

das erste habe ich! (indem ich per pos den pfeil suche)
das 2. klappt noch net und des 3. och net!

beim dritten liegt das problem an evtl 2 vorhandenen kommas! weil ich brauch immer das letzte komma! hab mir deshalb
fix ne funktion geschrieben, welche das erledigt!

Delphi-Quellcode:

function LastPos(str,delemiter : string): integer;
var
  a : integer;
begin
  a := 0;
  for a := length(str) downto 0 do
  begin
    if str[a] = delemiter then
      result := a
    else
      result := 0;
  end;
end;

nur liefert mir alles, was ich versuche, nur müll zurück!

die 3 strings extrahiere ich folgendermaßen:

Delphi-Quellcode:

    
hG := trim(copy(strgtest.Cells[0,4], 0, pos('->', strgtest.Cells[0,4]) - 1));
G := trim(copy(strgtest.Cells[0,4], pos(':', strgtest.Cells[0,4]), LastPos(strgtest.Cells[0,4],',')));
w := trim(copy(strgtest.Cells[0,4], LastPos(strgtest.Cells[0,4], ','), length(strgtest.Cells[0,4])));

vieleicht seh ich nur etwas nicht! oder meine funktion geht so nicht! ich weis es nicht mehr, was ich machen soll!

mfg matthias