Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Внизкак применить функцию 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;
← →
Separator © (2005-01-23 13:03) [6]> [4]
Да, но работаем как с TStringList
← →
Separator © (2005-01-23 13:05) [7]В Memo вообще TMemoStrings
← →
Separator © (2005-01-23 13:08) [8]Виновант, ошибся, запарился, в общем спутал TStrings с TList :(
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.044 c