Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#5
  Alt 24. Apr 2003, 13:03
Hallo eleonora,

wenn du die Textdatei in ein Memo geladen hast:

Delphi-Quellcode:
var
  posi : Integer;
...
for i:= 0 to memo.lines.count-1 do
begin
  { suchStr enthalte den zu suchenden String }
  posi := Pos(suchStr, memo.lines.Strings[i]);
  { posi zeigt nach dieser Anweisung auf das erste Vorkommen
    des suchStr in der durchsuchten Zeile, oder hat den Wert 0 }

  if posi > 0 then
  begin
    { in memo.lines.Strings[i] steht ab der Position posi der
      zu suchende String }

    { Wert des Strings ändern }
  end
end;
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat