Detecting spaces in txt file

[DelphiBeginner]

Hi
sorry: silly question: how can I detect a spaces (in one line of text) when reading a text file? Essentially I want to read the individual words in a line.
Tx

 

[LucieLastic]

hi

if pos(' ',line)> 0 then
//there's a space.

To actually pick out every word in the line, there's a little more to it and you wouldn't need pos.

eg.

procedure StripOutWords(searchstring : string; var ListofWords : TStringList);
  var tmpString : string;
      i : integer;
begin
  tmpString := '';
  ListOfWords.clear;
  i:= 1;
  while i <= length(SearchString) do
  begin
    if Uppercase(SearchString[i]) in ['A'..'Z','0'..'9']
      then TmpString := TmpString + SearchString[i]
    else
    begin
      ListOfWords.add(TmpString);
      TmpString:= '';
    end;
    inc(i);
  end;
  if tmpstring<> '' then
    ListofWords.add(TmpString);
end;

lou

 

[Stretchwickster]

There's an easier way to do it using a TStringList's DelimitedText property. Here's an example I knocked up which gets a line of text from an edit box and splits up the words. All you need to do is replace the Edit1.Text parameter with the line of your file:

  procedure GetWords(ALineOfText: String; var AListOfWords: TStringList);
  begin
    AListOfWords.DelimitedText := ALineOfText;
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  var
    listOfWords: TStringList;
    counter: Integer;
  begin
    listOfWords := TStringList.Create;
    try
      GetWords(Edit1.Text, listOfWords);
      for counter := 0 to listOfWords.Count - 1 do
        ShowMessage(listOfWords.Strings[counter]);
    finally
      listOfWords.Free;
    end;
  end;

Hope this helps!

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[LucieLastic]

hi Clive

I like that property. Does it exist in Delphi 5 Prof as I can't find it?

lou

 

[Stretchwickster]

I'm using Delphi 6 Pro. I've had a good search in books and on the net and cannot find in which version the DelimitedText property was encorporated into the TStringList - sorry! I'm guessing that if it's not in yours then it's a new addition in Delphi 6. There may well be a SetDelimitedText property in Delphi 5 but I doubt it.

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[richardchaven]

I think it's been there for a while (check Classes.pas), but not well documented because it probably has some bugs in the corner cases and they did not want to fix something that not many know about or use, and is easy enough to recreate.

Cheers