Tjække om ord findes i txt fil?

Sæt et flag til false, åne filen, læs alle linier, hvis ordet
er i linien sæt flaget til true og hop ud af løkken, sæt farve
udfra flag.

noget i denne stil?

var
sl:TstringList
t:integer;
begin
  sl:=TstringList.create;
  sl.loadfromfile('ord.txt');
  if richedit.lines.count>0 then
    for t:=0 to richedit.lines.count-1 do
      if sl.indexof(richedit.lines[t])>0 then {farv den rød}     
  sl.free;
end;

du kan eventuelt indlæse din txt fil i en memo og bruge følgende kode...

var
  i : Integer;
begin
  with Memo1 do
  if AnsiPos(LowerCase(Edit1.Text), LowerCase(Text)) > 0 then
  begin
    SetFocus;
    SelStart := AnsiPos(LowerCase(Edit1.Text), LowerCase(Text))-1;
    SelLength := Length(Edit1.Text);
  end
  else
    ShowMessage('"'+Edit1.Text+'" Blev ikke fundet');
end;

ellers...

var
  i : Integer;
  S : TStringList;
begin
  S := TStringList.Create;
  S.LoadFromFile(FilNavn);
  with S do
  if AnsiPos(LowerCase(Edit1.Text), LowerCase(Text)) > 0 then
  begin
    SetFocus;
    SelStart := AnsiPos(LowerCase(Edit1.Text), LowerCase(Text))-1;
    SelLength := Length(Edit1.Text);
  end
  else
    ShowMessage('"'+Edit1.Text+'" Blev ikke fundet i filen');
end;

mortvader>> Kan du ikke lige indbygge den funktion der laver det ord rød som ikke er i filen? Jeg kan næmlig ikke få det til at virke med  Edit.Selattributes.Color:=clred;

Der sker ikke noget med overstående kode.

Du skal sætte selstart og sellength (altså markere ordet) før
Edit.Selattributes.Color:=clred;
vil virke!

fun22>> "Der sker ikke noget med overstående kode." du skal selvfølig sætte koden i en knaps OnClick event eller lign...

mortvader>> Hvordan gør jeg det med selstart og sellenght???

zerohero>> Det er jeg godt klare over.

prøv at slå selstart og sellength op i hjælpen under TRichEdit.

prøv så dette...

var
  i : Integer;
  S : TStringList;
begin
  S := TStringList.Create;
  S.LoadFromFile(FilNavn);
  with S do
  if AnsiPos(LowerCase(Edit1.Text), LowerCase(Text)) > 0 then
  ShowMessage('Fandt "'+Edit1.Text+'" i filen')
  else
    ShowMessage('"'+Edit1.Text+'" Blev ikke fundet i filen');
end;

den anden procedure med memo1 virker fint!!! Alt du behøver er en TForm, TMemo eller TRichEdit, TButton og en TEdit...
Når du kompiler skriver du et eller andet i memoen trykker på knappen og koden finder det ord du ledte efter i memoen, ellers popper en besked op på skærmen...

nu har jeg læst hjlpen, men jeg fatter nul og niks af det. Så er der ikke en der kan lave en komplet kode??

zerohero>> det er sådan set fint nok, men, men, men. Kan man ikke gøre sådan at hvis den finder en fejl så viser den kun det ord der er fejl i. Ikke som nu hvor den viser hele teksten.

hmm.. hvis du ikke fatter noget af hjælpen, er det måske i virkeligheden en programmør du søger, og ikke forslag til løsning af specifik kode?

var
  i : Integer;
  S : TStringList;
begin
  S := TStringList.Create;
  S.LoadFromFile('C:\Test1.txt');
  with S do
  if  AnsiPos(LowerCase(Edit1.Text), LowerCase(S.Text)) > 0 then
  ShowMessage('Fandt "'+Edit1.Text+'" i filen')
  else
    ShowMessage('"'+Edit1.Text+'" Blev ikke fundet i filen');
  S.Free;
end;

fandt et komponent der virker