Hi,
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
| Uses SysUtils, StrUtils;
Var DeinString: String; Start, Ende: Integer;
Begin DeinString:= '%Prop:$FrameDoc.Typical=PCController_01_SCM%'; Start:= Pos('=', DeinString) + 1; Ende:= PosEx('%', DeinString, Start); If (Start > 0) And (Ende > 0) Then Begin WriteLn(Copy(DeinString, Start, Ende - Start)); ReadLn End; End. |
_________________
Wir, die guten Willens sind, geführt von Ahnungslosen, Versuchen für die Undankbaren das Unmögliche zu vollbringen.
Wir haben soviel mit so wenig so lange versucht, daß wir jetzt qualifiziert sind, fast alles mit Nichts zu bewerkstelligen.