[delphi5] String Separator

[marenk_vos]

Ik heb een editbox, in deze editbox worden hele getallen getypt gescheiden door een comma. Deze getallen ga ik oppakken en wil ik in een object plaatsen (array? of een ander beter object)

De code ik reeds gemaakt heb maar waar ik niet tevereden over ben is deze:

code:

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
    positie:integer;
    selst:integer;
    lengte:integer;
    teller:integer;
    bladnummers: array[1..20,1..1] of integer;
begin

//!!!!!vergeet niet alle spaties weg te halen

S:=trim(edit1.text);
lengte:=length(s);
if S[lengte]<>',' then         // geen komma op het einde
   begin
   S:=S+',';
   lengte:=length(s);
   end;
selst:=0;
teller:=0;

while Pos(',',S)>0 do
   begin
   positie:=Pos(',',S);
    try
    bladnummers[teller+1,1]:=strtoint(Copy(S,selst,positie-1));
    except
    end;
   S:=Copy(S,positie+1,(lengte-positie));
   teller:=teller+1;
   end;

teller:=0;
while teller<20 do
   begin
   showmessage(inttostr(bladnummers[teller+1,1]));
   teller:=teller+1;
   end;
end;

Het geen dat niet werkt is de array, ik neem nu nameljk een maximum van 20 regels maar dit moet flexibel zijn, heeft delphi hier zelf niet een ingebouwde optie voor?

[ Voor 0% gewijzigd door marenk_vos op 30-09-2002 10:28 . Reden: code tags ]

[kvdveer]

Gebruik even [ code] en [/ code] tags...

Zoek in jhe help naar dynamic arrays...

[CyeZ]

Kijk eens naar de SetLength procedure (en eventueel de Length functie), daarmee is het mogelijk om arrays van variabele lengte te maken.

[LordLarry]

Nog een tip: TStringList.CommaText of de (in D5 undocumented in de Classes unit) ExtractStrings functie splitsen strings op in veel minder regels code

[marenk_vos]

Deze bijgewerkte code geeft in de 2e regel van de try except af en toe een INVALID POINTER OPERATION fout.

Waar kan ik de stringlist ergens vinden?

code:

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
    positie:integer;
    selst:integer;
    lengte:integer;
    teller:integer;
    bladnummers: array of integer;
begin

//!!!!!vergeet niet alle spaties weg te halen

S:=trim(edit1.text);
lengte:=length(s);
if S[lengte]<>',' then         // geen komma op het einde
   begin
   S:=S+',';
   lengte:=length(s);
   end;
selst:=0;
teller:=0;

while Pos(',',S)>0 do
   begin
   positie:=Pos(',',S);
    try
    setlength(bladnummers,teller+1);
    bladnummers[teller+1]:=strtoint(Copy(S,selst,positie-1));
    except
    end;
   S:=Copy(S,positie+1,(lengte-positie));
   teller:=teller+1;
   end;

teller:=0;
while teller<high(bladnummers) do
   begin
   showmessage(inttostr(bladnummers[teller+1]));
   teller:=teller+1;
   end;
end;

[LordLarry]

marenk_vos schreef op 30 september 2002 @ 11:05:
Deze bijgewerkte code geeft in de 2e regel van de try except af en toe een INVALID POINTER OPERATION fout.

Waar kan ik de stringlist ergens vinden?

In de help

Array's beginnen indien niet anders aangegeven met 0 en zeker Dynamische array's. Dat betekend ook dat het laatste element maximaal een index heeft van de lengte van de array - 1.

Array[Teller+1] is dus te hoog als de array maar Teller + 1 groot is.