как применить функцию ExtractFileName на Tstrings

← →
dima (2005-01-23 11:00) [0]

не могу применить эту функцию и не могу перевести Tstrings в string!!!!

← →
aus (2005-01-23 11:21) [1]

Что значит "не могу применить"?
Результат ф-ции - sring, причем здесь TStrings?
Поконкретнее вопрос задай.

← →
begin...end © (2005-01-23 11:33) [2]

> dima (23.01.05 11:00)

Параметр, принимаемый функцией ExtractFileName, должен иметь тип String.
Поэтому экземпляр класса TStrings непосредственно туда передать нельзя.

← →
Separator © (2005-01-23 12:24) [3]

Если работаешь с Meme или ListBox (или типа того), то там не TStrings, а TStringList и к нему можно применить так: ExtractFileName(Memo.Lines.Text) - это для всего текста или ExtractFileName(Memo.Lines.String[i]), где i - номер нужной строки

← →
begin...end © (2005-01-23 12:28) [4]

> [3] Separator © (23.01.05 12:24)

> Если работаешь с Meme или ListBox (или типа того), то там
> не TStrings, а TStringList

Там НЕ TStringList.

← →
Pashkerton (2005-01-23 12:43) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
TempList: TStrings; { declare the list }
i:integer;
begin
TempList := TStringList.Create; { construct the list object }
try
{ use the string list }
TempList.Add("D:\1\bear_setup.exe");
TempList.Add("D:\1\Ðåçþìå.doc");

for i:= 0 to TempList.Count-1 do begin
Memo1.Lines.Add(ExtractFileName(TempList[i]));
end;

finally
TempList.Free; { destroy the list object }
end;

end;

> [4]
Да, но работаем как с TStringList

В Memo вообще TMemoStrings

Виновант, ошибся, запарился, в общем спутал TStrings с TList :(

как применить функцию ExtractFileName на Tstrings Найти похожие ветки