Разделение строчек

← →
begin...end © (2004-08-27 21:55) [40]

> добрый я (27.08.04 21:51) [39]

> Внимание - эта строка не принандлежит коду!

LOL

← →
Александр1 (2004-08-28 06:11) [41]

wnew

> Но, если Вам около 15, то извините - Вы безнадёжны:(

Ты считаешь, что в 15 лет люди должны уже всё знать. По-моему в 10 они ещё не то что Delphi, им родители да старшие братья к компу та не допускают. А то сломают чего. Ну хотя понятно из любого правила есть исключение. Мне не много не мало 17 лет.

> Для чего это нужно?

Этот странный как вы подумали код нужен для следующего. Я пишу программу тест (тестирования). В одном файле будут записаны вопрос и варианты ответа. На форме будут Memo. Программа будет читать файл (вопрос и ответы) и сортировать их по Memo.

Да к стати. добрый я – Спасибо тебе большое. Ты решил закончить эти мучения. Твой код работает.
Ну если begin...end хочет можно закончить и его идею.

var
MemoArray: array [1..3] of TMemo;
i:integer;
s:string;

…………….
procedure TForm1.BitBtn2Click(Sender: TObject);
var F:System.Text;
begin
MemoArray[1] := Memo1;
MemoArray[2] := Memo2;
MemoArray[3] := Memo3;

AssignFile(F, ExtractFilePath(Application.ExeName)+"vopr\1.vop");
Reset(F);
I := 1;
repeat
ReadLn(f, S);
S := StringReplace(S, " ", "", [rfReplaceAll]);
if S <> "" then
MemoArray[i].Text :=S
else
I := I + 1;
until Eof(F);
CloseFile(F);

end;

Данный код компилируется, но при выполнении программы (при нажатии на кнопку). Выдаётся ошибка. И компилятор указывает на строчку MemoArray[i].Text :=S.
И чёго ему не нравится. Строчки прочитаны, но они не раздаются Memo.
Ещё большое спасибо всем за помощь!

← →
begin...end © (2004-08-28 08:26) [42]

> [41] Александр1 (28.08.04 06:11)

> Ну если begin...end хочет можно закончить и его идею.

Можно, всё-таки? Ну спасибо.

> Данный код компилируется, но при выполнении программы (при нажатии на кнопку).

А у меня нету ошибки. Что я неправильно делаю?

Естественно, код в [38] содержит некоторые погрешности.
Например, из строки S в любом случае удаляются пробелы. Но решение этой проблемы приведено там же.
Потом, вместо TMemo.Lines.Add (как делают все нормальные люди) там - TMemo.Text := ...
Но это всё взято из твоего же кода, и просто подправлено так, чтобы он хоть как-то работал.

Твоё стремление получить сразу готовый код не приведёт тебя ни к чему долгосрочно хорошему.
Я больше чем уверен, что ты не разобрался в коде [39], а просто вставил (всунул) его в свою программу.
Это не есть хорошо. Для 17 лет - тем более.

← →
GrayFace © (2004-08-28 08:34) [43]

Александр1 (28.08.04 6:11) [41]
По-моему в 10 они ещё не то что Delphi, им родители да старшие братья к компу та не допускают.
Какие не хорошие родители и братья. Все лучшее - детям! Нам.

procedure TForm1.BitBtn2Click(Sender: TObject); var F:TextFile; I:integer;//когда I локальна, будет чуть быстрее begin MemoArray[1] := Memo1; MemoArray[2] := Memo2; MemoArray[3] := Memo3; AssignFile(F, ExtractFilePath(Application.ExeName)+"vopr\1.vop"); Reset(F); I := 1; repeat ReadLn(f, S); if S <> "" then MemoArray[i].Text :=S else I := I + 1; until Eof(F); CloseFile(F); end;

← →
begin...end © (2004-08-28 08:38) [44]

> [43] GrayFace © (28.08.04 08:34)

Сейчас автор укажет на ошибку: Undeclared identifier: "S".
Легко отделаться не удастся, в общем.

← →
GrayFace © (2004-08-28 08:43) [45]

Да, MemoArray[i].Text :=S -> MemoArray[i].Lines.Add(S);

← →
wnew © (2004-08-28 10:41) [46]

Александр1 (28.08.04 6:11) [41]
Твой подход к программированию, показывает, что тебя оно совсем не интересует. А под "добрый я", как раз я и дал тебе код:)
Кроме того, моему сыну 10 лет, но он ориентируется, для его возраста, в программировании не плохо и вопросы ставит куда более осмысленные.

← →
Александр1 (2004-08-28 10:47) [47]

Спасибо GrayFace, спасибо begin...end . Теперь оба кода работают. Странно конечно было бы, если бы эти алгоритмы бы не работали.
Я конечно понимаю, что программист из меня хреновый, но куда деваться.
Вы поди в своё время программированию в школе начинали учиться. А у нас чё? В нашей школе не то что программированию научиться, на компе работать научиться невозможно. Компьютеры 286. А препод такой, что даже как они включаются не знает. Вот и приходится во всём самому разбираться. А ведь программирование, как и любое дело по мимо усердия требует определённый талант. А если он (талант) не фонтан, то так и получается. Трудно быть программистом самоучкой.
Ну я думаю я всё ровно исправлюсь со временем, а пока стараюсь собирать различные мелкие алгоритмы, а потом из них составляю программы…

← →
Алхимик © (2004-08-28 11:52) [48]

> Трудно быть программистом самоучкой

Основная масса такая.

> Ну я думаю я всё ровно исправлюсь со временем, а пока стараюсь
> собирать различные мелкие алгоритмы, а потом из них составляю
> программы…

Глупость какая-то.

← →
Александр1 (2004-08-28 14:51) [49]

> Алхимик © (28.08.04 11:52) [48]

> Глупость какая-то.

Ну почему всё так консервативно. Надо верить в светлое будущее.

← →
GrayFace © (2004-08-30 11:15) [50]

Александр1 (28.08.04 10:47) [47]
Странно конечно было бы, если бы эти алгоритмы бы не работали.
Алгоритмов я тут не вижу.

> а пока стараюсь собирать различные мелкие алгоритмы, а
> потом из них составляю программы…

Если ты собираешь такие алгоритмы, то толку нету - это самые азы, которые надо понимать, а не копировать.

← →
Erik1 (2004-08-30 11:39) [51]

А еще можно купить книжку, или книжка у тебя уже есть? :)

← →
Александр1 (2004-08-31 05:41) [52]

> GrayFace © (30.08.04 11:15) [50]

Да это понятно, что данный алгоритм простой. Но есть и сложные. Например: перезагрузка windows, примеры работы различных не стандартных компанентов. Если каждый раз заново писать, точёкнутьсяч можно.

> перезагрузка windows

Опять же, это не алгоритм. Алгоритм - это последовательность абстрактных шагов. Перезагрузка - это один шаг в алгоритме. С вещами типа перезагрузки надо так делать: Help -> Windows SDK -> Предметный указатель -> ExitWindowsEx. Главное - помнить хотябы начало названия функции, остальное берется из справки.

>>Александр1
Вот и приходится во всём самому разбираться
Вот правильная фраза, которую вы видимо не правильно понимаете.

Разделение строчек Найти похожие ветки