Можно ли упростить код?

Pashekka
Дата: 19.11.2007 20:59:07
Посмотрите плиз что-то он мне ненравиться карявый какой-то!
Хотелось быстро и просто.

procedure TForm1.Button1Click(Sender: TObject);
type
  TElement = Array of String;
var
  AElement:Array of  TElement;
  SepElement:Char;
  Stroka:string;
  i,ai,aj:integer;
begin
SepElement:='|';
ai:=0;
aj:=0;
if FileExists(FilenameEdit1.Text) then
  begin
    AssignFile(f,FilenameEdit1.Text);
    Reset(f);
    While not Eof(f) do
      begin
        ReadLn(f,Stroka);
        Stroka:=Stroka+SepElement+' ';
        i:=0;
        while i < Length(Stroka)-1 do
          begin
            if stroka[i] = SepElement then
              begin
                SetLength(AElement,ai+1,aj+1);
                AElement[ai,aj]:=Copy(Stroka,1,i-1);
                delete(stroka,1,length(Copy(Stroka,1,i)));
                inc(aj);
                i:=-1;
              end;
            inc(i);
          end;
        inc(ai);
      end;
  end;
SetLength(AElement,0,0);
Memo1.Lines.LoadFromFile(FilenameEdit1.Text);
end;

Suum cuigue (лат.) — Каждому — свое (рус.)
Гаджимурадов Рустам
Дата: 19.11.2007 21:04:07

Pashekka> Посмотрите плиз что-то он мне ненравиться карявый какой-то!

Упростить можно. Но лучше бы для начала
постановку задачи (что код должен делать) озвучить.


Posted via ActualForum NNTP Server 1.4

Pashekka
Дата: 19.11.2007 21:14:38
Гаджимурадов Рустам

Упростить можно. Но лучше бы для начала
постановку задачи (что код должен делать) озвучить.


Есть файл - список на зачисление вкладов в банк
имеет структуру
№п/п|Фаимилия|Имя|Отчество|СЧЕТ|№БАНКА|№ФИЛИАЛА|СУММА
мне же нужно
№п/п|Фаимилия Имя Отчество|СЧЕТ|№БАНКА|№ФИЛИАЛА|СУММА
потом эту всю гадость нужно запихать в GRID
для того что бы я мог опирировать колонками в GRID-е по опред. настройкам
Да еще и добавлять свои.
Pashekka
Дата: 19.11.2007 21:16:47
Для списка использую AElement, ну а затем далее,
вопрос в заполнении оного! Что-то мне не нравиться сдесь!
Suum cuigue (лат.) — Каждому — свое (рус.)
Johnmen
Дата: 19.11.2007 22:00:09
автор
Можно ли упростить код?

Пока не надо - не все ещё всплакнули :)

Кстати, а что такое GRID?
Pashekka
Дата: 19.11.2007 22:16:56
Johnmen

Кстати, а что такое GRID?

???
GRID - т.е. сетка.
 GRID: TStringGrid; то есть!
Гаджимурадов Рустам
Дата: 19.11.2007 22:42:58

Pashekka> Есть файл - список на зачисление вкладов в банк имеет структуру
Pashekka> №п/п|Фаимилия|Имя|Отчество|СЧЕТ|№БАНКА|№ФИЛИАЛА|СУММА
Pashekka> мне же нужно

RTFM TStrings.Delimiter, TStrings.DelimitedText


Pashekka> потом эту всю гадость нужно запихать в GRID
Pashekka> для того что бы я мог опирировать колонками в GRID-е по опред. настройкам
Pashekka> Да еще и добавлять свои.

База данных используется?



Posted via ActualForum NNTP Server 1.4

andreymx
Дата: 19.11.2007 23:13:14
Pashekka
Suum cuigue (лат.) — Каждому — свое (рус.)
Я бы на Вашем месте не приводил бы цитаты с ссылкой на русский язык, потому что Вы его, к сожалению, не знаете.
quaid
Дата: 19.11.2007 23:43:54
плакал
andreymx
Дата: 19.11.2007 23:53:04
quaid
плакал
Твое замечание весьма некорректно, хотя и очень популярно здесь.
"Пачеко" прямо так и сказал - написал плохо, помогите. Рустам ссылку дал, которая ищущему человеку поможет. Кстати, лично я узнал о методах TStrings.Delimiter, TStrings.DelimitedText только после 3..4 лет работы с делфой - к моему сожалению, не у кого было спросить в своё время.
А ржать все могут.