[Delphi]Laatste 5 symbolen uit een string halen..

[Verwijderd]

Hi,

In VB kon je zon de laatste 5 symbolen/karakters uit een string halen:

x=right(5, StringA)

Maar hoe doe je nu hetzelfde met Delphi ??

[MPEG]

Kijk eens naar de procedure Copy

[mulder]

Een echte F1 vraag, maar goed. Copy, Pos, Del(ete?) etc

[MPEG]

Op vrijdag 11 januari 2002 16:37 schreef El_Mundo het volgende:
Een echte F1 vraag, maar goed. Copy, Pos, Del(ete?) etc

Is geloof ik al eerder gezegd dat hij eens moet kijken in de documentatie

[BasieP]

code:

nieuwestring:=copy(oudestring, length(oudestring)-5), 5);

P.S.
* BasieP heeft ook een hekel aan zoeken als andere mensen je het ook gewoon kunnen vertellen

[MPEG]

code:

strDeString := 'Je moet de handleiding lezen';

strTmp := copy(strDeString, length(strDeString - 5), 5));

// strTmp = 'lezen'

edit:


i.d.d. laatste param moet 5 zijn niet length

[Verwijderd]

Ik heb echt op F1 gedrukt en naar strings gezocht, ik heb het niet kunnen vinden en nu nog steeds niet.

Kan iemand dit niet gewoon even vertalen:

[VB6]if right(5, String1)="hello" then......
[DELPHI]....

edit:

laat ik eerst eens de andere antwoorden lezen...:)

[MPEG]

Op vrijdag 11 januari 2002 16:43 schreef basiep het volgende:

code:

nieuwestring:=copy(oudestring, length(oudestring)-5), 5);

P.S.
* BasieP heeft ook een hekel aan zoeken als andere mensen je het ook gewoon kunnen vertellen

Je kan toch ook eerst ff zoeken naar "Delphi" en "String" in de search

[Skinny]

Op vrijdag 11 januari 2002 16:49 schreef cougar007 het volgende:
Ik heb echt op F1 gedrukt en naar strings gezocht, ik heb het niet kunnen vinden en nu nog steeds niet.

Kan iemand dit niet gewoon even vertalen:

[VB6]if right(5, String1)="hello" then......
[DELPHI]....

Zeikmode:

code:

Parse error on line 1 : No valid VB6 code found

Zullen we dan eerst maar eens goed VB neerzetten :

code:

strCompare = "hello"
If Ucase(Trim(Right(String1, 5))) = Ucase(Trim(strCompare)) Then

Verder ken ik geen Delphi, dus ...

[MPEG]

Op vrijdag 11 januari 2002 16:49 schreef cougar007 het volgende:
Ik heb echt op F1 gedrukt en naar strings gezocht, ik heb het niet kunnen vinden en nu nog steeds niet.

Kan iemand dit niet gewoon even vertalen:

[VB6]if right(5, String1)="hello" then......
[DELPHI]....

edit:

laat ik eerst eens de andere antwoorden lezen...:)

code:

if (copy(String1, length(String1)-5,5) = 'hello') then
begin
   ......
end;

[Verwijderd]

Bedankt dat jullie ook even een Delphi n00b helpen....

[Verwijderd]

En toch werkt het nog niet, wat is hier fout aan??

code:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
sData : String;
begin
sData := Socket.ReceiveText;
memo1.Lines.add(sData);
if (copy(sData, length(sData)-5,5) = 'hello') then
begin
ClientSocket1.Socket.SendText('PRIVMSG #channel Hallo!!' + #13+#10);
end;

end;

[Creepy]

Op vrijdag 11 januari 2002 16:43 schreef basiep het volgende:

code:

nieuwestring:=copy(oudestring, length(oudestring)-5), 5);

P.S.
* BasieP heeft ook een hekel aan zoeken als andere mensen je het ook gewoon kunnen vertellen

* Creepy heeft een hekel aan mensen die het verdommen om te zoeken, terwijl het rechtstreeks uit de help, web-sites en nagenoeg elk Delphi boek te halen is.

Dat je iets niet weet, betekent niet dat je meteen maar een vraag moet stellen zonder eerst ff te zoeken.

Het valt me de laatste tijd op dat er steeds meer van dit soort vragen gesteld worden, terwijl dus in nagenoeg elk Delphi boek dit soort ongein wel wordt behandelt. Dat je een beginner bent ok.. maar om copy&paste code vragen, nee, zeg dan gewoon dat je te lui bent om het zelf uit te zoeken

[Creepy]

Op vrijdag 11 januari 2002 17:02 schreef cougar007 het volgende:
En toch werkt het nog niet, wat is hier fout aan??

code:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
sData : String;
begin
sData := Socket.ReceiveText;
memo1.Lines.add(sData);
if (copy(sData, length(sData)-5,5) = 'hello') then
begin
ClientSocket1.Socket.SendText('PRIVMSG #channel Hallo!!' + #13+#10);
end;

end;

Wat gaat er mis dan? Doet ie het niet? print ff de copy(sData, length(sData)-5,5) op het scherm d.m.v. een showmessage(copy(sData, length(sData)-5,5)), dan weet je meteen wat er uit komt.

[Tim]

PS. Ik denk niet dat het aan te raden is een IRC client te gaan maken als je niet eens weet hoe je de laatste 5 chars uit een string moet halen..

[Verwijderd]

In VB6 heb ik wel hele irc clienten gemaakt, ik ben nu een paar dagen (2 dus) bezig om dit om te zetten in Delphi en het lukt toch wel aardig (connecte, joine, parten, PRVMSGen)

[OxiMoron]

Ehh als je in de Help van Delphi op Copy zoekt vind hij niks..

Maar als je Copy intypt en dan op F1 drukt dan wel..

Delphi help heeft al bugs sinds versie 1

[BasieP]

Op vrijdag 11 januari 2002 18:41 schreef cougar007 het volgende:
In VB6 heb ik wel hele irc clienten gemaakt, ik ben nu een paar dagen (2 dus) bezig om dit om te zetten in Delphi en het lukt toch wel aardig (connecte, joine, parten, PRVMSGen)

dat zijn redelijk ingebakken standaard functies..

Op vrijdag 11 januari 2002 17:11 schreef Creepy het volgende:

[..]

* Creepy heeft een hekel aan mensen die het verdommen om te zoeken, terwijl het rechtstreeks uit de help, web-sites en nagenoeg elk Delphi boek te halen is.

Dat je iets niet weet, betekent niet dat je meteen maar een vraag moet stellen zonder eerst ff te zoeken.

Het valt me de laatste tijd op dat er steeds meer van dit soort vragen gesteld worden, terwijl dus in nagenoeg elk Delphi boek dit soort ongein wel wordt behandelt. Dat je een beginner bent ok.. maar om copy&paste code vragen, nee, zeg dan gewoon dat je te lui bent om het zelf uit te zoeken

zit ook wel wat in. maar af en toe heb ik het gevoel alsof lui zijn een gave is die je niet zo een-twee-drie de wereld uit kan helpen..
maar idd volgende keer zal ik me mond houden
_{en zelf ook gaan zoeken ipv vragen}

Op vrijdag 11 januari 2002 20:55 schreef OxiMoron het volgende:
Ehh als je in de Help van Delphi op Copy zoekt vind hij niks..

Maar als je Copy intypt en dan op F1 drukt dan wel..

Delphi help heeft al bugs sinds versie 1

?
nooit last mee gehad. wel dat er verschillende versie's van de help in elkaar geplakt zijn, (je ziet wel stuk nieuw is, en wat oud)
maar verder kun je gewoon zoeken naar 'string' 'copy' enzo