Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

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

 
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]


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

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


 
Johnmen ©   (2006-11-14 23:36) [18]


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


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


 
MikePetrichenko ©   (2006-11-14 23:39) [19]


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

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


 
Ketmar ©   (2006-11-14 23:46) [20]

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


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


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

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


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

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

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


 
Gydvin ©   (2006-11-15 06:40) [24]

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


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


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

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

> Ruffian   (14.11.06 22:29)  

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



Страницы: 1 вся ветка

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.041 c
2-1163394280
Lebedev
2006-11-13 08:04
2006.12.03
Можно ли регулировать положение текста (caption) TPanel?


2-1163666014
WhiteBarin
2006-11-16 11:33
2006.12.03
Запретить завершение сеанса,запрещение выключения компьютера...


15-1163145761
Juice
2006-11-10 11:02
2006.12.03
Проблемы с кодировкой


2-1163785251
ProgRAMmer Dimonych
2006-11-17 20:40
2006.12.03
Опять торможу. Какая функция в Turbo Pascal отвечает...


15-1163270326
Alatiel
2006-11-11 21:38
2006.12.03
Delphi 7: could not find valid product information