Notifikationer

Markér alle som læst Log ud

skovjuul Nybegynder

30. april 2008 - 21:25 Der er 4 kommentarer og
2 løsninger

Flytte tekst x antal tegn af gangen

Jeg er ved at lave understøttelse for sms'er over 160 tegn i mit program men jeg har stirret mig godt og grundig blind på følgende udfordring:

if Length(OrgMsg)>160 then
AmountToSend := 160
else
AmountToSend := Length(OrgMsg);
StrMove(PChar(BitOfMsg),PChar(OrgMsg),AmountToSend);

Hvad jeg gerne ville opnå er at flytte x antal tegn fra OrgMsg til BitOfMsg og samtidig forkorte Orgmsg med den flyttede streng.

Hmm... Helt optimalt skulle man vel egentlig måle på om sidste ord er for langt og så gå tilbage til sidste mellemrum.

Nogen der har en hurtig løsning ved hånden? Eller en idé til at komme videre?

På forhånd tak
Jesper

Synes godt om

arne_v Ekspert

30. april 2008 - 22:05 #1

proev:

OrgMsg := Copy(OrgMsg, AmountToSend + 1, Length(OrgMsg) - AmountToSend);

Synes godt om

skovjuul Nybegynder

01. maj 2008 - 23:46 #2

Hmmm... ikke helt hvad jeg umiddelbart havde i tankerne.

Idéen er at hvis en besked er f.eks. 200 tegn (i OrgMsg) så bliver AmountToSend := 160 og de første 160 tegn i OrgMsg bliver derved flyttet over i BitOfMsg, hvilket efterlader de sidste 40 tegn i OrgMsg som så bliver sendt i anden iteration.

Synes godt om

kroning Nybegynder

02. maj 2008 - 00:36 #3

var
OrgMsg,BitOfMsg : string;
AmountToSend : integer;
begin
if Length(OrgMsg)>160 then
AmountToSend := 160
else
AmountToSend := Length(OrgMsg);

BitOfMsg:=Copy(OrgMsg,1,AmountToSend);
Delete(OrgMsg,1,AmountToSend);
end;

Synes godt om

skovjuul Nybegynder

02. maj 2008 - 01:21 #4

Sorry kroning, burde ha opdateret her hurtigere, var selv kommet frem til næsten det samme for halv times tid siden baseret på arnes svar:

BitOfMsg := Copy(OrgMsg, 0, AmountToSend);
OrgMsg := Copy(OrgMsg, AmountToSend + 1, Length(OrgMsg) - AmountToSend);

Men smid et svar begge to, så får du 10 af pointene kroning.

Synes godt om

arne_v Ekspert

02. maj 2008 - 02:09 #5

svar

Synes godt om

kroning Nybegynder

02. maj 2008 - 10:16 #6

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
udstyr til udespa Af Hightech i Andet programmering	2	29/04/202609:42	30/04/202622:16
Bat file. Af johnnylassen i Andet programmering	4	23/04/202616:10	24/04/202609:43
Hjælp til Api.asmx Af lurup i Andet programmering	1	17/03/202609:27	17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering	2	12/11/202514:10	02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering	16	17/08/202522:26	19/08/202515:53

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS