String Code überprüfen

[p80286]

So wie die Daten aussehen, würde ich Idefix' Ansatz bevorzugen.
Die sehr konservative Möglichkeit wäre z.b.

Delphi-Quellcode:

  readln(f,Satz);
  if (length(satz)>0) and (Satz[1]='O') then begin
    if pos('-',satz)>0 then
      satz:=copy(satz,2,pos('-',satz)-1);
    if pos('-',satz)>0 then
      satz:=copy(satz,2,pos('+',satz)-1);
    pruflist.add(satz);
 end;

wobei pruflist eine Stringliste ist.
Du solltst diese dan von 0.. .count durchgehen und die entsprechenden integerwerte vergleichen.

Eine andere Möglichkeit ist es zB. mit altsatz und aktsatz zu operieren.

Gruß
K-H