string split function in delphi

Question

actually i was opened question previously,

but can't get answer what i exactly want, so i would like to ask again thanks All

for example, i have some text file name is 'test.txt' , and inside text contents looks like

hello all
good day
happy is

and i want to modify following source to iterate from first index of 'hello all' i mean..

if i click showmessage(first) then i want get 'hello' inside test.txt file,

and if click showmessage(second) then want to get 'all' and continuesly,

if i click again showmessage(first) then want to get 'good' and

click again showmessage(second) then want to get 'day' that what i want exactly.

Thanks in advance! and thanks all who helped me already!

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  list : TStringList;
  first, second, third: string;
begin
  list := TStringList.Create;
  try
    list.Delimiter := #32;
    list.LoadFromFile('test.txt');
    first := list[0];
    second := list[1];
    ShowMessage(first);
    ShowMessage(second);
  finally
    list.Free;
  end;
end;

Hello you can modify such like following ?

i want to use showmessage(first) and showmessage(two) , if so much appreciate!

procedure TForm1.BitBtn1Click(Sender: TObject);

var
  theFileStuff : tstringList;
  oneLine      : tStringList;
  x,y          : integer;
begin
    theFileStuff      := tStringList.Create;
    oneLine           := tStringList.create;
    oneLine.Delimiter := #32;
    theFileStuff.LoadFromFile('test.txt');
    for x := 0 to theFileStuff.count-1 do
    begin
          oneLine.DelimitedText := theFileStuff[x];
          for y := 0 to oneLine.count-1
          do
          //ShowMessage(oneLine[y]);
          ShowMessage(first);
          ShowMessage(second);

    end;
    oneLine.Free;
    theFileStuff.Free;
end;

@Paul: Surely you can think of a way to change "ShowMessage(oneline[y]);" into "first := oneline[0]; second := oneline[1]; ShowMessage(first); ShowMessage(second);". You need to try to figure things out yourself and not expect everyone to do everything for you. You'll never learn that way. — Ken White
– Ken White, Commented Dec 18, 2009 at 21:26
Hello thanks all! i was resolved,if without other's help maybe i couldn't resolve it i really appreciate ! thanks again :) — paul
– paul, Commented Dec 18, 2009 at 22:09

Sparky · Accepted Answer · 2009-12-18 21:22:22Z

4

Try this

procedure TForm1.ShowFields(Sender: TObject);
var
  theFileStuff : tstringList;
  oneLine      : tStringList;
  x,y          : integer;
begin
    theFileStuff      := tStringList.Create;
    oneLine           := tStringList.create;
    oneLine.Delimiter := #32;
    theFileStuff.LoadFromFile('fileName');
    for x := 0 to theFileStuff.count-1 do
    begin
          oneLine.DelimitedText := theFileStuff[x];
          for y := 0 to oneLine.count-1
          do ShowMessage(oneLine[y]);
    end;
    oneLine.Free;
    theFileStuff.Free;
end;

If you know there are only two items per line, you can replace the following code:

for y := 0 to oneLine.count-1
do ShowMessage(oneLine[y])

with

ShowMessage(oneLine[0]);    // First
ShowMessage(oneLine[1]);    // Second

My code was more generic to handle any number of items per line

edited Dec 18, 2009 at 21:22

answered Dec 18, 2009 at 19:52

Sparky

15.1k2 gold badges34 silver badges45 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

paul Over a year ago

thanks for your help! i was modified some would you check it ? thanks again

Remy Lebeau · Accepted Answer · 2009-12-18 19:53:44Z

2

The Delimiter property only has meaning when using the DelimitedText property. You will have to use 2 separate TStringList objects for what you are asking for, for example:

var
  list, values : TStringList;
  curListIdx, curValueIdx: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  curListIdx := -1;
  curValueIdx := -1;
  list := TStringList.Create; 
  values := TStringList.Create;
  values.Delimiter := #32;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  list.Free;
  values.Free;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  S: String;
begin 
  if curListIdx = -1 then
  begin
    list.LoadFromFile('test.txt');
    if list.Count = 0 then Exit;
    curListIdx := 0;
  end;

  if curValueIdx = -1 then
  begin
    if curListIdx = list.Count then
    begin
      curListIdx := -1;
      Exit;
    end;
    values.DelimitedText := list[curListIdx];
    Inc(curListIdx);
    if values.Count = 0 then Exit;
    curValueIdx := 0;
  end;

  S := values[curValueIdx]; 
  Inc(curValueIdx)
  if curValueIdx = values.Count then curValueIdx := -1;

  ShowMessage(S);
end;

answered Dec 18, 2009 at 19:53

Remy Lebeau

609k36 gold badges516 silver badges875 bronze badges

2 Comments

paul Over a year ago

Hello Thanks for your help! i want to modify such like,,would you help me

Ken White Over a year ago

Remy, you can do it with one TStringList (SL) and a string variable. SL.LoadFromFile(), assign SL.Text to the variable, and then assign the variable back into SL.DelimitedText after setting the SL.Delimiter (and probably SL.StrictDelimiter := True).

Collectives™ on Stack Overflow

string split function in delphi

2 Answers 2

1 Comment

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related