Suchen, vergleichen

[Jens Hartmann]

Zitat von p80286:

Lägen die Daten in dieser Form vor:

Liegen sie aber ja scheinbar nicht. Deshalb denke ich, das Sir Rufo da schon den richtigen Ansatz gegeben hat. Es sieht aufjedenfall so aus, als wär die "(" immer vor der Stufe, also sollte es in etwa so gehen...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  ipos:integer; 
  form:string; 
  temp:string; 
begin 
  temp:=''; 
  form:=''; 
  ipos:=pos('(',Memo1.Text); 
  if Memo1.Text[ipos+1] in ['0'..'9'] then
    begin 
      temp:=Memo1.Text[ipos+1]; 
      Memo2.Text:=Memo1.Text[ipos]+temp;//Obwohl ich diesen Sinn noch nicht ganz versteh. 
    end; 
end;

Gruß Jens