Søg
Avatar billede knaste Nybegynder
15. oktober 2006 - 22:13 Der er 6 kommentarer og
1 løsning

Adskille string?

Hej,

Jeg har en stringlist, som ser saadan ud:

1,3,43
2,32,67
3,443,78
4,56,23
5,23,443

Hvordan kan jeg adskille tallene i linierne ved kommaet,
saaledes, at jeg kan saette tallene efter det foerste komma i memo1,

3
32
443
56
23

og tallene efter det andet komma i memo2?

43
67
78
23
443

Tallene foer det foerste komma skal ignoreres.

Tak paa forhaand!
knaste
Avatar billede kroning Nybegynder
15. oktober 2006 - 23:41 #1
var
  i,a,b : integer;
begin
    for i:=0 to s.Count-1 do
  begin
      a:=Pos(',',s[i])+1;
    b:=PosEx(',',s[i],a);
      Memo1.Lines.Add(Copy(s[i],a,b-a));
    Memo2.Lines.Add(Copy(s[i],b+1,MaxInt));
    end;
end;
Avatar billede kroning Nybegynder
15. oktober 2006 - 23:41 #2
Husk StrUtils i din uses aht. PosEx
Avatar billede kroning Nybegynder
15. oktober 2006 - 23:45 #3
Eller måske således:

var
  i : integer;
  t : TStringList;
begin
  t:=TStringList.Create;
  for i:=0 to s.Count-1 do
  begin
      t.Clear;
    ExtractStrings([','],[],PChar(s[i]),t);
    Memo1.Lines.Add(t[1]);
    Memo2.Lines.Add(t[2]);
  end;
  t.Free;
end;
Avatar billede knaste Nybegynder
16. oktober 2006 - 07:23 #4
Jeg proever den sidste, men den fejler i linien:
ExtractStrings([','],[],PChar(s[i]),t);

Fejlen er: Listindex overskrider maximum (1).

Det virker, hvis jeg omskriver linien til:
ExtractStrings([','],[],PChar('11,22,33'),t);

Tallene i min originale stringlist ser ud til at vaere OK..?
Avatar billede kroning Nybegynder
16. oktober 2006 - 08:40 #5
Jeg går ud fra at din stringlist som i koden hedder s indeholder 5 linier (0-4) nemlig disse linier:
1,3,43
2,32,67
3,443,78
4,56,23
5,23,443
Avatar billede knaste Nybegynder
16. oktober 2006 - 19:50 #6
Jeg havde free'et min stringlist s et andet sted i programmet, sorry...

Det virker nu, laeg et svar.
Avatar billede kroning Nybegynder
17. oktober 2006 - 07:48 #7
ok
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
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
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:48 Bred buet skærm vs. 2 skærme Af Nanarsi i Skærme
I går 18:07 Tilslut printer til netværk med WPS - hvis WPS slukkes på Router mistes forbindelse. Af Uvanga i Wifi
11/0521:05 Questyle M15i lydforstærker Af valby i Diverse
11/0518:27 Mærkeligt ikon på proceslinjen Af ErikHg i Windows
11/0513:54 Jeg skal have indstaleret Garmin express Af skolevej321 i Andet software
White papers
Flere white papers »