String kürzen

[marabu]

Eine Möglichkeit:

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
    SetLength(s, Pred(i));
  // ...
end;

Grüße vom marabu