Delete(Str: String; Start, Length: Integer)

[volshba]

Hello.
can u help me.
I have a code:

procedure Tpa.Button2Click(Sender: TObject);
var
  Temp: TStringList;
  Index: Integer;
   s: Integer;
begin
     Temp:= TStringList.Create();
  try
    for Index:= 0 to FList.Count - 1 do
if  ('apple', FList[Index]) <> 0) and (Temp.IndexOf(FList[Index]) = -1)
then Temp.Add(FList[Index]);
    try
      begin
Temp.SaveToFile('fruits.txt');                      
   end;
    except
      ShowMessage('error!');
    end;
  finally
    Temp.Free();
  end;
     end;

and i need use in this button functions "Delete(Str: String; Start, Length: Integer)".
I need to remove all 'garbage' after this word.
How do I do this?
example:
'apple ererewerwer'
result:
only 'apple'

[WingedPanther]

How are you defining the end of a word? For example, if you have 'apple ererewerwer' in string Data, then I could do:

Data := copy(Data,1,pos(' ',Data)-1);

to remove all characters starting at the space.

[volshba]

ok. but if i have 'applesdfsdfsdf' without the space?

[WingedPanther]

How are you defining "garbage"? For example, your case could return either 'apple' or 'apples' depending on whether the s is considered garbage or not.