String kürzen

[Darko]

Hallo!
Ich muss einen String ab einer bestimmten Stelle zusammen. Ich suche mir die entsprechende Stelle mit:

Delphi-Quellcode:

statt_pos:=Pos('Std.', Query1.FieldByName('BEMERKUNG').AsString);

Nun muss ich den String ab Stelle sozusagen 'abschneiden'. Kann mir jmd sagen, wie ich das nun machen kann?

[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

[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