Parse kommando

Procedure split(str: string; list: tstrings);
begin
   while pos(' ', str) > 0 do
   begin
      list.add(copy(str, 1, pos(' ',str)-1));
      delete(str, 1, pos(' ',str));
   end;
   list.add(str);
end;

...
   split('yes sir!', listbox1.items);
...

Jeppe Johansen
Jeppesoftware@hotmail.com

Kan man ikke lave en løkke hvor der søges efter "mellemrum" altså efter en string med værdien ' '.
Når den så er fundet, så putte denne værdi ind i en variabel.
Sætte variablen, ind i sin stringlist hvor man nu måtte have brug for den.
Løkken kører så videre og sætter på den måde ordene adskilt ind i en stringlist.

Kan ikke se der skulle være nogle alvorlige huller i den ide, men det var bare noget jeg lige hurtigt kom frem til.

Håber det om ikke andet giver dig en ide til en løsning..

/x-ile

[Redigeret d. 25/11-05 16:06:02 af Casper]

Prøver lige. Måske er det smartere at putte det ind i et array istedet.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Ja, det kan du have ret i...

[offtopic]
Du hjalp mig engang med nogle FTP problemer jeg havde, hvis jeg kunne få dig til bare kigge på et indlæg jeg har skrevet ville det være lækkert.
link: http://www.udvikleren.dk/thread.php?techid=&f=2&t=2343
På forhånd tak..
[/offtopic]

Håber du får bugt med problemet.. ;-)

/x-ile


[Redigeret d. 25/11-05 16:42:26 af Casper]

Har siddet og rodet lidt med det. Det gider ikke rigtigt virke . Nogen forslag?


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Mange tak Jeppe!


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------