Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Suchen der Textteile

    Delphi
    by DeddyH, 10. Mär 2008
  Wo ist das Problem?EditZahlen.Text := '';
  EditBst.Text := '';
  for i := 1 to Length(DeinString) do
  if (DeinString in ) then
  EditBst.Text := EditBst.Text + DeinString
  else if (DeinString in ) then
  EditZahlen.Text := EditZahlen.Text + DeinString;
  
  Oder mit case:for i := 1 to Length(DeinString) do
  case DeinString of
• Forum: Object-Pascal / Delphi-Language

  Re: Suchen der Textteile

    Delphi
    by DeddyH, 10. Mär 2008
  Wie meinst Du das jetzt?
• Forum: Object-Pascal / Delphi-Language

  Re: Suchen der Textteile

    Delphi
    by DeddyH, 10. Mär 2008
  Ich habe es mal für Dich kommentiert:
  function FirstDelimiter(const delimiters, s: string): Integer;
  begin
  //Ergebnis mit 0 vorbelegen --> kein Treffer
  Result := 0;
  //ggf. ganzen String s durchgehen
  while Result < Length(s) do
  begin
  //Result wird hochgezählt und dient als Laufvariable
  Inc(Result);