Tobias Toft wrote:
> Hej,
> Hvordan opdeler man en string i flere mindre, fx:
>
> Hvis jeg har to edits: Edit1 og Edit2 en Memo1 og Button1.
>
> Hvis så brugeren skriver:
>
> "Hej Igen"
>
> i memo'en.
> Så skal edit.text:= 'Hej' og edit2.text:= 'Igen', når jeg trykker på
> Button1.
>
> Hvordan gør man det?? Det må være noget med at klippe string'en over når der
> er mellemrum (eller semikolon, komma el.lign.).
>
> Hilsen
> Tobias Toft
>
> --
> ________________________________________
> You won't believe what I believe when I'm alone...
> (DAD - Bad Craziness)
>
>
www.tt-media.com
function DelOrd(Ind: String);
var
i: String;
S1, S2: String;
begin
for i := 1 to Length(Ind) do begin
if Ind[i] = ' ' then Break;
S1 := S1 + Ind[i];
end;
for i := i+1 to Length(Ind) do begin
if Ind[i] = #0 then Break;
S2 := S2 + Ind[i];
end;
// indsæt værdierne i komponenterne...
end;
--
Mvh. FePe
MONICA: "I figured out I need to charge seventeen bucks a jar
just to break even. So, I've got a new plan now. Babies."
CHANDLER: "Well, your gonna need much bigger jars."
--The One With The Jam (303)-----