stringlist

← →
Дарья (2006-04-14 15:13) [0]

тут вот не получается с tstringlist;
задача какая,есть файл gg.txt,загружаю его
var
t:tstringlist;
t.Create.LoadFromFile(extractFileDir(application.exename)+"gg.txt");
пытаюсь закинуть текст в мемо,но ниче не получается
memo1.lines.text:=t.text;
t.free;
пишет ошибку

причем мне нужно чтобы загружалось сначало в stringlist
memo1.lines.loadfromfile(); -- не рассматриваю

← →
Ega23 © (2006-04-14 15:21) [1]

var List:TStringList; begin List:=TStringList.Create try List.LoadFromFile(....); Memo1.Lines.Assign(List); finally List.Free; end;

Но на самом деле всё проще.
Memo1.Lines.LoadFromFile(....)

← →
Игорь Шевченко © (2006-04-14 15:28) [2]

> t.Create.LoadFromFile(extractFileDir(application.exename)+"gg.
> txt");

Книжки читать. По кулинарии.

← →
Дарья (2006-04-14 15:44) [3]

хм...открываю файл,он зашифрован,хоть и приметивно,но все же
дешефрую и загружаю в мемо,но почему то в конце добавляються две палки || почему?
var
s : string;
e : string;
i : Integer;
t:tstringlist;
begin
t:=tstringlist.Create;
try
t.LoadFromFile("c:\pass.txt");
s :=t.Text;
SetLength(e, length(s));
for i := 1 to length(s) do begin
e[i] := chr(ord(s[i])-500);
end;
Memo1.Lines.Text:=e;
t.Free;
finally
end;

← →
Ega23 © (2006-04-14 15:46) [4]

Это ужасно... Мда..

Подозреваю, что это какой-нибудь символ табуляции.

← →
Desdechado © (2006-04-14 15:51) [5]

t.Free;
finally
меняй местами

а вообще солидарен с ИШ

Даша, а не почитать ли тебе хоть какие-либо буквари, имеющие отношение к Делфи ?

Ведь твой код вида

> t:tstringlist;
> t.Create.

это же нонсенс ..

А stringlist вообще не пригоден для нетестовых файлов. Да, тут нужен учитель или, хотябы, букварь. Еще можно поспрашивать на менее серьзных форумах.
По меньшей мере,
1) e тут, мягко говоря, лишнее - s надо изменять
2) По поводу t.create, ознакомься с тем, что есть указатели
В общем тебе еще надо как Ленин завещал.

stringlist Найти похожие ветки