Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

dima © (2005-01-23 11:00:00)
не могу применить эту функцию и не могу перевести Tstrings в string!!!!

Separator (2005-01-23 13:08:00) [1]
Виновант, ошибся, запарился, в общем спутал TStrings с TList :(

Separator (2005-01-23 13:05:00) [2]
В Memo вообще TMemoStrings

Separator (2005-01-23 13:03:00) [3]
> [4]
Да, но работаем как с TStringList

Pashkerton (2005-01-23 12:43:00) [4]
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;

begin...end (2005-01-23 12:28:00) [5]
> [3] Separator © (23.01.05 12:24)

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

Там НЕ TStringList.

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

begin...end (2005-01-23 11:33:00) [7]
> dima (23.01.05 11:00)

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

aus (2005-01-23 11:21:00) [8]
Что значит "не могу применить"?
Результат ф-ции - sring, причем здесь TStrings?
Поконкретнее вопрос задай.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »