10. november 2002 - 16:36
Der er
7 kommentarer og 1 løsning
Slet dele a text
Hej Eks... Ved ik hvordan jeg skal forklare problemet men prøver... Hvis man nu har en "listbox1" og en "edit1" og en button1 på en form. I Edit1 står der FX. "Hej Eksperter" når man så trykker på button1 skal den ik overføre det hele til listbox1, men kun "Eksperten" fra edit1, hvordan gøre man det? Håber i forstår... Vil selv gætte på noget lin. listbox1.items.add(edit1.text - 'hej'); Men det virker ik, man ka ik sige " - " i denne sætning... Hjælp TAK... //Krab
Annonceindlæg fra Deloitte
10. november 2002 - 16:48
#1
hmm...er det altid det samme antal tegn der skal sorteres fra? procedure TForm1.Button1Click(Sender: TObject); begin listbox1.Items.Add(Copy(edit1.Text,5,length(edit1.Text))); end; Dette sortere i hvert fald 'hej ' fra i ovenståående tilfælde /Sune
10. november 2002 - 16:51
#2
Nej det er ik altid det samme.... Hvordan kan det så gøres? //Krab
10. november 2002 - 16:54
#3
Men der vil altid stå det samme tilsidst i setningen, FX. "Du er" "De er" Der er det altid "er" tilsidst, Hvordan får jeg så "er" til at forsvinde? //Krab
10. november 2002 - 17:11
#4
dvs du altid skal sortere 'er' fra ? Så kan det gøres på denne måde : procedure TForm1.Button1Click(Sender: TObject); var streng : String; posi : Integer; begin posi := Pos('er', edit1.Text)-1; streng := edit1.Text; delete(streng,posi,3); listbox1.Items.Add(streng); end;
10. november 2002 - 19:04
#5
listbox1.items.add(copy(edit1.text, pos(' ', edit1.text)+1, length(edit1.text)))
11. november 2002 - 18:49
#6
>>DKN Hva vil du ik lige forklare lidt om hva det er den gør den kode? //Krab
11. november 2002 - 23:42
#7
jo den kopire fra det første ' ' (space) den findet til slutningen af teksten.
12. november 2002 - 21:56
#8
OKI TAKKER !!!
Kurser inden for grundlæggende programmering