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

← →
Ruffian (2006-11-14 22:29) [0]

Извеняюсь что опять пишу, но вот трабла в этом коде..

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

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;

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

← →
Desdechado © (2006-11-14 22:33) [1]

SL.DelimitedText := SL.Text;

а еще http://www.ln.ua/~openxs/articles/smart-questions-ru.html

← →
Ruffian (2006-11-14 22:38) [2]

ммм, напёк на неправильный вопрос понял, почиткаю обязательно на досуге, а что енправильно в коде не ясно объяснил, напиши поподробней плиз..

← →
Percent (2006-11-14 22:47) [3]

Как кто думает, в чём ошибка/ошибки???

Какие ошибка/ошибки?
Что оно не так делает?
Ты мысль формулировать умеешь?

Какая-то мешанина. Ты хоть понимаешь, что тебе делать надо?

Зачем тебе этот цикл: while x=0 do?
Что это такое: Readln;

И что, вообще, это все делать должно?

← →
Anatoly Podgoretsky © (2006-11-14 22:48) [4]

Ты вроде уже этот вопрос задавал?

← →
Anatoly Podgoretsky © (2006-11-14 22:49) [5]

Да очередной бред просто написан

← →
Johnmen © (2006-11-14 22:52) [6]

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

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

← →
Ketmar © (2006-11-14 22:55) [7]

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

← →
Ruffian (2006-11-14 23:15) [8]

Блин, вы лучшеб критиковать самиб себя вспомнили когда нехрена незнали...
(сознаюсь, тот кот был немного кривоват..)
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;

← →
Anatoly Podgoretsky © (2006-11-14 23:16) [9]

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

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

← →
MikePetrichenko © (2006-11-14 23:17) [10]

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

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

← →
Anatoly Podgoretsky © (2006-11-14 23:19) [11]

Встретились два кота и с горя напились валерьянки.

← →
Ruffian (2006-11-14 23:20) [12]

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

← →
Anatoly Podgoretsky © (2006-11-14 23:21) [13]

Да уже не хочется совсем на это время тратить.

← →
MikePetrichenko © (2006-11-14 23:22) [14]

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

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

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

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

← →
Johnmen © (2006-11-14 23:24) [15]

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

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

← →
Ruffian (2006-11-14 23:26) [16]

Ну плиз, вы тратите время чтоб ответить ерёнду, а указать, намекнуть, где и в чём моя ошибка вы не можете..вы уже начали помогать, так доведите дело до конца.

← →
MikePetrichenko © (2006-11-14 23:29) [17]

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

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

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

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

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

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

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

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

← →
Percent (2006-11-14 23:57) [21]

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; // чтобы были запятые в результирующем файле

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

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

← →
RASkov (2006-11-15 04:31) [23]

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

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

Да ладно прикалываться ;) метелок на всех хватит

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

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

> Ruffian (14.11.06 22:29)

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

Всё таже работа с файлами... Найти похожие ветки