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