ok, som jeg har forstået det, så har du hentet 2 strenge ind i dit program, vi kalder dem a og b
det her er en onClick procedure for den knap der hedder Button1
procedure TForm1.Button1Click(Sender: TObject);
const
KontrolOrd: string = 'inifil';
var
a, b: string;
begin
a := 'Dette er streng a, den er loadet fra en inifil';
b := 'Men hov! jeg er streng b og kommer også fra en inifil';
if Pos(KontrolOrd, a) <> 0 then
ShowMessage('Ordet ' +KontrolOrd +' optræder i a');
if Pos(KontrolOrd, b) <> 0 then
ShowMessage('Ordet ' +KontrolOrd +' optræder i b');
end;
Først er der konstanten "Kontrolord", dén er dét ord vi søger... (du kan jo prøve at ændre 'inifil' til 'kommer' og se hvad der sker)
Variablerne a og b er de variabler som du har hentet fra inifilerne.
funktionen Pos er defineret således:
function Pos(Substr: string; S: string): Integer;
Hvor Substr er den streng vi søger og S er den streng vi søger i. Den returnerer 0(nul) hvis den ikke finder noget, og det er dét vi vil finde ud af(se evt. hjælpefilen der følger med delphi - den er go')
Casper