bisher sieht das so aus :
(is erstmal für die-staemme.de)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var ipos:integer;
form:string;
temp:string;
begin
temp:='';
form:='';
ipos:=pos('Hauptgebäude (Stufe',memo1.Text);
ipos:=ipos+21;
if memo1.Text[ipos+1] in ['0'..'9'] then temp:=memo1.Text[ipos+1];
memo2.Text:=memo1.Text[ipos]+temp;
end;
gibt mir aber was falsches zurück...
und immer etwas anderes -.-
MFG
Jonsen