Сохранение ListView в файл

[Scorpeon]

Люди нашол в интернете код как сохранять содержимое ListView в текстовый файл, попробовал разобраться но не че не вышло, выдает ошибку, помогите плиз

Procedure SavListView(S: String; ListView: ListView);
Const Delimiter = '|';
Var ff: TextFile;
t: Integer;
begin
AssignFile(ff, S);
ReWrite(ff);
try
With ListView Do For t:=0 to Items.Count - 1 Do WriteLn(ff,StringReplace(Items[t].Caption + Delimiter + Items.Item[t].SubItems.Text,#13#10,Delimiter,[rfReplaceAll]));
finally
CloseFile(ff);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SavListView('c:\1.txt'ListView1);
end;

[mrandrey]

И что там у тебя не работает? Поисправляй синтактические ошибки, такие как TListView вместо ListView и вставки запятых и тогда все будет работать.

[Alex21]

Procedure SavListView(S: String; ListView1: TListView);
Const Delimiter = '|';
Var ff: TextFile;
t: Integer;
begin
AssignFile(ff, S);
ReWrite(ff);
try
With ListView1 Do For t:=0 to Items.Count - 1 Do
WriteLn(ff,StringReplace(Items[t].Caption +
Delimiter + Items.Item[t].SubItems.Text,#13#10,Delimiter,[rfReplaceAll]));
finally
CloseFile(ff);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SavListView('c:\1.txt',ListView1);
end;

Короче, т.к. обращение идет к одному и тому же компоненту, то и называть его "желательно" по имени (свойство Name), и 1(еденицы) пропускать настоятельно НЕ рекомендую.....

P.S.: Да, с такими вопросами в Помощь стьюдентам!

[mrandrey]

и 1(еденицы) пропускать настоятельно НЕ рекомендую.....

Alex21 ,чтот ты этим добился? Изменил название параметра и только, а вообще насколько я знаю длинные имена переменных использовать нежелательно (тоисть лучше короткие), так что еденичку добавлять не нужно.

[Alex21]

Сообщение от mrandrey

Alex21 ,чтот ты этим добился? Изменил название параметра и только, а вообще насколько я знаю длинные имена переменных использовать нежелательно (тоисть лучше короткие), так что еденичку добавлять не нужно.

Если хорошенько посмотреть код автора вопроса
>SavListView('c:\1.txt',ListView1);
видно, что имелось ввиду: обращение идет именно к ListView1, поэтому и добавляем везде 1.
А вообще про длинные параметры: история такая есть:
Один чел, любил пользовать(я тоже) короткие переменные типа i,j,k,..., непонравилось это преподу и говорит он ему: "переменные должны быть понятны!". Студент исправился, и приносит такой код(паскаль):
..
var
peremennaja_celo4islennogo_tipa_nom er_odin : integer;
peremennaia_strikovogo_tipa_dlia_hr anenia_stroki_iz_faila :string;
..
И в таком виде написана вся прога. А главное придраться не к чему!!!

[AidarBik]

Сообщение от Alex21

Если хорошенько посмотреть код автора вопроса
>SavListView('c:\1.txt',ListView1);
видно, что имелось ввиду: обращение идет именно к ListView1, поэтому и добавляем везде 1.
А вообще про длинные параметры: история такая есть:
Один чел, любил пользовать(я тоже) короткие переменные типа i,j,k,..., непонравилось это преподу и говорит он ему: "переменные должны быть понятны!". Студент исправился, и приносит такой код(паскаль):
..
var
peremennaja_celo4islennogo_tipa_nom er_odin : integer;
peremennaia_strikovogo_tipa_dlia_hr anenia_stroki_iz_faila :string;
..
И в таком виде написана вся прога. А главное придраться не к чему!!!

Но ведь там, где идет обращение к ListView1, это уже вызов процедуры, так что можно 1 в ее описании и не ставить.

[mrandrey]

[QUOTE]
Цитата:
Сообщение от mrandrey
Alex21 ,чтот ты этим добился? Изменил название параметра и только, а вообще насколько я знаю длинные имена переменных использовать нежелательно (тоисть лучше короткие), так что еденичку добавлять не нужно.

Если хорошенько посмотреть код автора вопроса
>SavListView('c:\1.txt',ListView1);
видно, что имелось ввиду: обращение идет именно к ListView1, поэтому и добавляем везде 1.
QUOTE]

А если еще лучше присмотреться, то процедура глобальная и о существовании некого ListView1, также как и о form1 не подозревает, а добавление той самой еденицы будет только путать, так что она там не нужна, а в идеале вообще назвать VarOfListView

PS: А история мне понравилась (выдумал или было?)