delphi - søge i *.txt - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #2855 @ 20.09.04 09:35

Howdy

Jeg er har en fil,m som inden holder en masse ord, en af dem er trædemølle....

Kan man lave en if else sætning som tester om der står trædemølle i filen, hvis der gør skriver den hej, hvis der ikke gør, skriver den lort...

hvordan laves dette??

på forhånd tak!
Hilsen Rune B alias RunesS
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

3 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #84 @ 20.09.04 10:12

205

En simpel løsning kunne være:

Kode

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  SL.LoadFromFile('c:\\myfile.txt');
  if Pos('trædemølle', SL.Text) > 0 then
  ShowMessage('hej') else ShowMessage('lort');
  SL.Free;
end;

Kim Jensen aka BOSH
http://www.hulubulu.dk

Bruger #4734 @ 20.09.04 14:17

Edit:

if pos('trædemølle', edit1.text) > 0 then
showmessage('hej') else
showmessage('lort');

memo:

if pos('trædemølle', memo1.text) > 0 then
Showmessage('hej') else
showmessage('lort');

Mvh...
Allan Nørgaard Kristensen

Bruger #2855 @ 20.09.04 13:11

En simpel løsning kunne være:

Kode

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  SL.LoadFromFile('c:\\myfile.txt');
  if Pos('trædemølle', SL.Text) > 0 then
  ShowMessage('hej') else ShowMessage('lort');
  SL.Free;
end;

Kim Jensen aka BOSH
http://www.hulubulu.dk

Hvad hvis jeg vil søge med de samme kriterier, men i en edit eller en memo??
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

søge i *.txt

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler