TStringList

if MyStringList.IndexOf(Edit1.Text) <> -1 then
  ListBox1.Items.Add(MyStringList[MyStringList.IndexOf(Edit1.Text)]);


/Martin

hmm :/

Den laver en Access Violation

for overskulighedens skylds vil jeg anbefale :

procedure Tform1.Button1Click(Sender : TObject);
var
  i : Integer;
begin
  i := MyStringList.IndexOf(Edit1.Text); 
  if i <> -1 then
    ListBox1.Items.Add(MyStringList[i]);
end;

Jens b

Så har du ikke kalde en Create på din StringList !?!?!

Jens B

Hvor skal jeg kalde den?

Må jeg lige se din kode ?

procedure TForm1.Button1Click(Sender: TObject);
var
sl : TStringlist;
s : string;
i : integer;
searchfor: string;
begin
listbox1.Clear;
searchfor := edit1.Text;
sl := TStringlist.Create;
sl.LoadFromFile('D:\minfil.txt');
for i:= sl.Count-1 downto 0 do
if pos(edit1.Text,(sl[i]))>0 then
listbox1.Items.Add(sl[i]);
end;

Stoney

procedure TForm1.Button1Click(Sender: TObject);
var
MyStringList: TStringList;
i: integer;
begin
MyStringList.LoadFromFile('c:\tadfind.ini');
i := MyStringList.IndexOf(Edit1.Text);
  if i <> -1 then
    ListBox1.Items.Add(MyStringList[i]);
end;

Så prøv :

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStringList: TStringList;
  i: integer;
begin
  MyStringList := TStringList.Create;
  MyStringList.LoadFromFile('c:\tadfind.ini');
  i := MyStringList.IndexOf(Edit1.Text);
  if i <> -1 then
    ListBox1.Items.Add(MyStringList[i]);
  MyStringList.Free;
end;

HVID du bruger Delphi 6 skal sidste line se således ud :

FreeAndNil(MyStringList);

Jens B

Jeg bruger delphi 5

stoney >> hvorfor laver du søgningen manuelt, når TStringList Classen har alle de funktioner der er brug for ??

/Martin

Stoneys virker fint

borrisholts virker ikke :/

hvad er der i vejen med mit kode ?

Jens B

Dunno.. Den får ikke nogen resultater når jeg søger..

Stoney's metode er kun nødvendig hvis det er en delstreng du søger efter.

prøv at kigge i din fil for at se om ikke det er den det er galt med ....

Jens b

martinlind >>

Gammel skade tror jeg

Stoney

aha .. derfor..

Den virker kun hvis jeg skriver det hele af en linje i filen.. det behøver kun være delstreng jeg søger på.. derfor virker stoneys..

Livet er jo helt fantastisk !!

Stoney >> og man kan ikke lære gamle hunde nye kunster *S*

Stoney >> Måske du skulle tænke lidt på performance ....

Jens: hvordan får jeg din til at virke med delstrenge også?

Hvis du er ny i faget vil jeg anbefale stoneys løsning ..

Dog skal du huske at kalde en free på din stringlist når du er færdig med den

JEns B

Min kommentar til stonet var vist mere dril .... :-)

(Jeg håbede han hoppede på lim pinden)

Jens B

martinlind >>

den med hunde, mit cpr nr er begyndt at trykke *G*

borrisholdt >>

Hvordan vil du optimere det når han søger efter en del streng ?

Stoney

Ok..

Ja, jeg er ny :)

Jeg takker mange gange for hjælpen :))

aarrh shit !!

jeg sidder og sover.

Stoney

Du må ikke bruge POS .. Den er for langsom .. Skriv dig en ny ...
Brug ikke properties fro VCL kontrollerne ... Det er hurtigere at kopiere dem ....

Og hvor meget tynger dit CPR nummer ? :-)

borrisholt>>

Den hexadecimale værdi af 5 og 6 karakter i mit cpr nr er 40

Stoney

uhhhhhhh..... :-)

Burde du så ikke have nogle hurtigere rutiner :-)

Jens B

mine er kun 48

Jens b

http://www.tradestone.dk/ ..

Hvor snart er snart ?

Jens B

borrisholt >> hvorfor skal der bruges FreeAndNil(MyStringList); hvis det er i D6??

Og gælder det kun TStringList eller alle free??

Jeg er ved at lave en masse begynder Delphi begynder tutorials.

Men det har taget lidt overhånd for mig.
Punkt 1 det bliver meget detaljeret, punkt 2 jeg har sat mig
for det skal laves som ISAPI DLL'er lavet i Delphi selvfølgelig.

Så det bliver en 100% clean delphi site.

Stoney

Det gælder ved ALLE free.

Grunden er at man så kan bruge Assigned til at finde ud af om Objekter er oprettet eller ej !

Jens B

stoney >> Så er vi to *S* ( kig evt. på www.matlus.com ) og på www.e-lind.dk

/Martin

martin>>

Jeg har store problemer med at vælge database til mit Delphi site.
Jeg ved ikke om det skal være Interbase(open source) eller MySQL jeg skal
vælge.
Interbase virke kanon når je sidder og leger, med jeg har ikke
den store erfaring når vi taler stor run/load/brugere på den.

Jeg ved du er lokal verdens mester i Interbase.
Hvad er dine erfaringer med Interbase ?

Jeg har ledt efter objective benchmark test men synes ikke jeg kan finde
nogle "helt sandfærdige"

Det er som regel andre database leverandøres test samlignet med andre databaser, sjovt nok "vinder" deres egne databaser altid.

Stoney