AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Textteile suchen

Ein Thema von djpaull · begonnen am 22. Okt 2007 · letzter Beitrag vom 22. Okt 2007
 
Benutzerbild von Dani
Dani

Registriert seit: 19. Jan 2003
732 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Textteile suchen

  Alt 22. Okt 2007, 02:58
Hi. Ich nehme an, dass du weißt, was ein String ist.
Mit der Funktion Pos kannst du den "Index" herausfinden, an welchem sich dein Suchstring befindet.

Beispiel:

Code:
String: "Hallo Du"
Index:  12345678

Suchstring: "Du"
Index:      12

Pos('Du', 'Hallo Du') = 7
Mit der Funktion Length kannst du die Länge des Suchstrings herausfinden. Schließlich kannst du mit der Funktion Copy ein Teilstück aus einem String herauskopieren.

Copy('Hallo Du', 7, Length('Du')) = 'Du' Alles klar?

Falls nicht, hilft vielleicht dieses Beispiel.
http://delta-works.de/delphi-string.png

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Text: String;
    Suchtext: String;
    Suchindex: Integer;
begin
  Text := 'Das.ist.ein.String.Beispiel';
  Suchtext := 'String';
  Suchindex := Pos(Suchtext, Text);
  Caption := Copy(Text, 1, Suchindex - 1) +
             Copy(Text, Suchindex + Length(Suchtext), MaxInt);
end;
Angehängte Grafiken
Dateityp: png clipboard01_112.png (7,7 KB, 7x aufgerufen)
Dani H.
At Least I Can Say I Tried
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz