String kürzen

[rollstuhlfahrer]

du könntest aber auch mit Delete alles ab der Position abschneiden, also etwa so (ungetestet)

Delphi-Quellcode:

const
  S_STD = 'Std.';
var
  i: Integer;
  s: string;
begin
  s := Query1.FieldByName('BEMERKUNG').AsString;
  i := Pos(S_STD, s);
  if i > 0 then
    Delete(s, i, MaxInt); // s: String (var); Index: Integer; Count: Integer; evt. hier auch Pred(i) versuchen oder Succ(i) (?)
  // ...
end;

Bernhard

PS: ob Succ(i) oder nicht hauptsache i + 1