Developing.ru

maelz писал(а):Чета я не понял, эти числа из какой системы исчисления?

for i &#58]

Про файл если он в обычном виде пойдет решение либо считывать по строкам либо попроще прогрузить его в ListBox иль еще куда все равно и обрабатывать его опять же по строкам, пишется нечто типа
Код:

for i := 0 to ListBox.Items.Count-1 do
begin
//нужно как-то распарсить строки что-то типа
DoThat(RichEdit, SearchText, Memo);
//далее вопрос насколько тебе нужно отрисовывать точки я бы сразу ///линии рисовал... Про то как и где рисовать линии поройся по
//форуму не раз обсуждалось...
lineTo(x,y);
end;
//*
вот моя реализация парсинга по определенному символу, недостаток только одной строки, но в твоем случае перекидываешь в
RichEdit строку из ListBox,,,, SearchText у тебя "__________" должен быть одинаков либо пропиши в функции проверку следующего символа если он _ перейти дальше итд -- это всеголишь пример додумывай сам... A: TMemo это куда выводим результат, в принцыпе его можно загнать и в многомерный массив и от туда уже развлекаться..
*//
procedure Tform.DoThat(RichEdit: TRichEdit; SearchText: string; A: TMemo);
var
f, S: string;
begin
s:= RichEdit.Text;
gStartPos := 0;
gEndPos := Length(RichEdit.Text);
if RichEdit.FindText(SearchText, gStartPos, gEndPos, [stMatchCase])>0 then
begin
gEndPos := Length(RichEdit.Text) - gStartPos;
gPosition := RichEdit.FindText(SearchText, gStartPos, gEndPos, [stMatchCase]);
f := Copy(RichEdit.Text, gStartPos, gPosition);
A.Lines.Add(f);
RichEdit.Lines[0] := Copy(RichEdit.Text, gPosition+2, gEndPos);
// DoThatX(RichEdit, SearchText, A); //2 процыдура для цекличности
// я долго мучался нашел только такой способ -- времени тогда небыло
end;
end;

Про файл если он в обычном виде пойдет решение либо считывать по строкам либо попроще прогрузить его в ListBox иль еще куда все равно и обрабатывать его опять же по строкам