Скачать: CL | DM;

как применить функцию 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c