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

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

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

Всё таже работа с файлами...

Страницы: 1 2 >
Ruffian © (2006-11-14 22:29:00)
Извеняюсь что опять пишу, но вот трабла в этом коде..

скомпоновав все коды вот что получил...

procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStrings;
x:integer;
begin
SL := TStringList.Create;
x:=0;
try
while x=0 do
begin
SL.LoadFromFile(Edit1.text); // грузим строку из файла
SL.Delimiter := ','; // числа в строке рзделены запятыми
SL.DelimitedText := SL.Text; // разбиваем строку на отдельные числа
SL[5] := IntToStr(StrToInt(Trim(SL[2])) * 60); // работаем с 6-м числом (индексация от 0)
// тут работаем с другими числами
SL.Text := SL.DelimitedText; // чтобы были запятые в результирующем файле
Readln; // если достигнут конец строки
// в файле, то переход на следующую строку}
SL.SaveToFile('c:\2.txt'); // сохраняем результат
end;
finally
FreeAndNil(SL);
end;
end;

Как кто думает, в чём ошибка/ошибки???
заранее спасибо!

Плохиш (2006-11-15 10:52:00) [1]

> метелок на всех хватит

Скоро все предприятия переведут на производство метёлок.

> Ruffian (14.11.06 22:29)

Меняй профессию пока не поздно, не твоё это, не твоё.

Gydvin (2006-11-15 06:40:00) [2]
Да ладно прикалываться ;) метелок на всех хватит

RASkov (2006-11-15 04:31:00) [3]
> > (сознаюсь, тот кот был немного кривоват..)

тот был нимного, зачем же его еще больше кривить.
while not SeekEof(Edit1.text) do //над же додуматься:)
Тебе это кто так сказал делать?
> то ведь таким тупым и буду...
этим не расчувствуешь.

Германн (2006-11-15 01:34:00) [4]

> Ruffian (14.11.06 23:15) [8]
>
> Блин, вы лучшеб критиковать самиб себя вспомнили когда нехрена
> незнали...
> (сознаюсь, тот кот был немного кривоват..)

Даже в самом "перепоё" я такого не написал бы :-)

Percent (2006-11-14 23:57:00) [5]
SL.LoadFromFile(Edit1.text); // грузим строку из файла

Вот тут у тебя ошибка.
Это не "загрузка строки из файла", это загрузка всего файлав SL.

while not SeekEof(Edit1.text) do //тут собсна и ошибка, в чём я не понимаю..
//цикл, пока не достигнут конец файла
begin

Это уничтожь, у тебя же используется класс TStringList

// тут работаем с другими числами

Смотрю, тебе дали код, а ты тупишь, и даже не знаешь, как им воспользоваться.
Размести весь свой цикл вместо этого коментария.
То есть, вот так:

SL.DelimitedText := SL.Text;// разбиваем строку на отдельные числа for i := 0 to SL.Count - 1 do // цикл по всем строкам (в твоей задаче - по всем числам) begin // вот тут и анализируй строчные представления чисел, в цикле от первого числа и до последнего // доступ к строкам - SL[i] // получить из строчного представления числа само число - StrToInt(SL[i]) end; SL.Text := SL.DelimitedText; // чтобы были запятые в результирующем файле

Ketmar (2006-11-14 23:46:00) [6]
>[8] Ruffian 14-Nov-2006, 23:15
>самиб себя вспомнили
вспомнил. тогда с инетом было тяжело. я книги читал. много читал. а не клянчил решения.

>[16] Ruffian 14-Nov-2006, 23:26
>Ну плиз, вы тратите время чтоб ответить ерёнду, а указать,
>намекнуть, где и в чём моя ошибка вы не можете..вы уже
>начали помогать, так доведите дело до конца.
внимательно читай [7]. там универсальный ответ.

MikePetrichenko (2006-11-14 23:39:00) [7]

> Точно-точно. Надо же отдохнуть после целого дня трёпа.

Ну это кто чем зарабатывает :)

Johnmen (2006-11-14 23:36:00) [8]

> MikePetrichenko © (14.11.06 23:29) [17]
> Потрепаться - это отдых после тяжелого рабочего дня.

Точно-точно. Надо же отдохнуть после целого дня трёпа.

MikePetrichenko (2006-11-14 23:29:00) [9]

> так доведите дело до конца.

А оно нам надо?
Потрепаться - это отдых после тяжелого рабочего дня.

Ruffian (2006-11-14 23:26:00) [10]
Ну плиз, вы тратите время чтоб ответить ерёнду, а указать, намекнуть, где и в чём моя ошибка вы не можете..вы уже начали помогать, так доведите дело до конца.

Johnmen (2006-11-14 23:24:00) [11]

> а то ведь таким тупым и буду...

Ха! Нас не запугаешь!

MikePetrichenko (2006-11-14 23:22:00) [12]

> блин, ну объясните плиз, укажите где ошибки, а то ведь таким
> тупым и буду...

Так тебе же уже все ответили.
Хотя бы вот.

> Ketmar © (14.11.06 22:55) [7]
> >[0] Ruffian 14-Nov-2006, 22:29
> в DNA.

У коТов - там же.

Anatoly Podgoretsky (2006-11-14 23:21:00) [13]
Да уже не хочется совсем на это время тратить.

Ruffian (2006-11-14 23:20:00) [14]
блин, ну объясните плиз, укажите где ошибки, а то ведь таким тупым и буду...

Anatoly Podgoretsky (2006-11-14 23:19:00) [15]
Встретились два кота и с горя напились валерьянки.

MikePetrichenko (2006-11-14 23:17:00) [16]

> сознаюсь, тот кот был немного кривоват..

Нет. Тот коТ был ужасен. И это коТ не далек от предшественника.

Anatoly Podgoretsky (2006-11-14 23:16:00) [17]

> Блин, вы лучшеб критиковать самиб себя вспомнили когда нехрена
> незнали...

Ой неужели мы такими были, не припомню.

Ruffian (2006-11-14 23:15:00) [18]
Блин, вы лучшеб критиковать самиб себя вспомнили когда нехрена незнали...
(сознаюсь, тот кот был немного кривоват..)
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStrings;
x:integer;

begin
SL := TStringList.Create;
x:=0;
try
while not SeekEof(Edit1.text) do //тут собсна и ошибка, в чём я не понимаю..
//цикл, пока не достигнут конец файла
begin
SL.LoadFromFile(Edit1.text); // грузим строку из файла
SL.Delimiter := ','; // числа в строке рзделены запятыми
SL.DelimitedText := SL.Text;// разбиваем строку на отдельные числа
SL[5] := IntToStr(StrToInt(Trim(SL[5])) * 60); // работаем с 6-м числом (индексация от 0)
// тут работаем с другими числами
SL.Text := SL.DelimitedText; // чтобы были запятые в результирующем файле
// если достигнут конец строки
// в файле, то переход на следующую строку}
end;
SL.SaveToFile('c:\2.txt'); // сохраняем результат
finally
FreeAndNil(SL);

end;
end;

Ketmar (2006-11-14 22:55:00) [19]
>[0] Ruffian 14-Nov-2006, 22:29
>Как кто думает, в чём ошибка/ошибки???
в DNA.

Johnmen (2006-11-14 22:52:00) [20]

> скомпоновав все кодывот что получил...

Вот так теперь программируют. А что вы думали? Напрягаться-то не надо...

Страницы: 1 2 >

Наверх

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