ReportCube
Заполняем вариантный массив из файла FileXLS, что очень быстро, а с массивом делаем всё, что угодно

var

XLWork, XLApp,VarArrFromExcel: Variant;

begin

XLApp:= CreateOleObject('Excel.Application' );

try

XLApp.DisplayAlerts := false;

XLApp.WorkBooks.Open(FileXLS);

XLWork := XLApp.Workbooks[1].WorkSheets[1];

//Всё в вариантный массив

VarArrFromExcel := XLWork.UsedRange.Value2;

finally

XLApp.ActiveWorkBook.Close;

XLApp.Quit;

XLApp := Unassigned;

end;

end;

тема на форуме

Shouldercannon
Проще везде, где обращаешься к файлам писать

ExtractfilePath(Application.ExeName) + 'твой файл'

тема на форуме

Mister.V
Решил проблему следующим способом, вот код:

constructor WordsOUT.Create(BD:spisok; var s:string);

var

   o:link;

   i:byte := 1;

begin

   while i < 30 do

   begin

   o:=BD.begr;

   while  o^.b do

   begin

      if o^.data <> '' then

      s:= s.Replace(o^.data,' ');

      o:=o^.next;

   end;

   inc(i)

   end;

end;

Функции AnsiReplaceStr в PascalABC.NET нет, как и нет библиотеки StrUtils, но зато в нём оказался класс для работы со строками.
Аналог

StrPage := AnsiReplaceStr(StrPage, 'подстрока', '#');

выглядит как

StrPage:= StrPage.Replace('подстрока', '#');

тема на форуме

Stilet

procedure TForm1.TreeView1Click(Sender: TObject);

begin

..:=TTreeView(sender).Selected.Index;

end;

тема на форуме

В азбуке Морзе (код Морзе) каждой букве соответствует комбинация из длинных посылок (тире) и коротких посылок (точек). За единицу длительности в телеграфной азбуке принимается длительность точки. Длительность тире равняется длительности трех точек. Пауза между знаками в букве – одна точка, а между буквами в слове 3 точки. Пауза между словами 7 точек.

Код Морзе используется для передачи сигналов в радиосвязи, гидроакустической, световой и звуковой сигнализациях.

raxp
метод воспроизведения:

var i: integer = 0;

procedure TForm1.Image1Click(Sender: TObject);

begin

 TIMER1.Enabled:= TRUE

end;
procedure TForm1.Timer1Timer(Sender: TObject);

begin

 gen1.ResetAM;

 gen1.Prepare;

 gen1.Frequency:= 500;
 INC(I); if i> length(slovo) then begin

   timer1.Enabled:= false;

   i:= 0

 end;
 if slovo= '.' then begin gen1.Duration:=100;  gen1.Play end;

 if slovo= '-' then begin gen1.Duration:= timer1.Interval; gen1.Play end

end;

	mz_res.zip (236.5 Кб)
	Виртуальные приборы. Синтезатор азбуки Морзе (Минск).pdf (264.8 Кб)

“Кодировка” транспорта на таможне
С 1 июня 2010 для временно ввозимого и вывозимого через границу Российской Федерации транспорта утверждена технология штрихового кодирования. Начиная с первого дня этого нововведения, на декларации будет крепиться наклейка со специальным кодом, по которому в дальнейшем в базе данных таможенники смогут узнать об автотранспортном средстве всю необходимую информацию.

Приказ “Об утверждении Технологии штрихового кодирования при проведении таможенного контроля транспортных средств” от 1 июня был опубликован Федеральной таможенной службой.

Согласно данному документу, на временно ввозимые и вывозимые через границу Российской Федерации автотранспортные средства будет наноситься штрихкод.

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

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

Информация о вышеупомянутых транспортных средствах будет собираться ведомством в единую базу данных.

Историческая справка. При попытке разработать технологию считывания информации о продукте, американец Норман Джозеф Вудленд начертил первый штрихкод на песке. Для использования в работе таможни, таможенных брокеров, он расширил точки и тире из Азбуки Морзе и сделал из них вертикальные линии. Далее для прочтения штрихкодов он приспособил технологию оптического саундтрека, которую используют в кино.

тема на форуме

3D Hunter
по теме: используй класс TOpenDialog/TSaveDialog.

program Project1;

{$APPTYPE CONSOLE}
uses

  SysUtils, dialogs;
var

  od:TOpenDialog;

begin

  try

    try

      od:=TOpenDialog.Create(nil);

      if od.Execute(0) then ShowMessage(od.FileName);

    finally

      FreeAndNil(od);

    end;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.

С TSaveDialog работать аналогично.

тема на форуме

вот пример
grafgrial

procedure TForm1.DropFiles(var msg: TMessage);

var

  i, count  : integer;

  dropFileName : array [0..511] of Char;

  MAXFILENAME: integer;

begin

  MAXFILENAME := 511;

  count := DragQueryFile(msg.WParam, $FFFFFFFF, dropFileName, MAXFILENAME);

  for i := 0 to count - 1 do

  begin

    DragQueryFile(msg.WParam, i, dropFileName, MAXFILENAME);

    Memo1.Lines.Add(dropFileName);

  end;

  DragFinish(msg.WParam);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DragAcceptFiles(ListView1.Handle, True);

end;

тема на форуме

%

немного|чуточку|чуток|чуть-чуть|малость|слегка

поправить|отредактировать|изменить

Если рерайтер (я создаю именно рерайтер, а не простой синонимайзер) найдет в тексте слово «чуток», то он его заменит на «немного», «чуточку», «чуть-чуть», «малость» или «слегка». И не надо для каждого слова писать отдельную строчку, а тем более группу.

Главная сложность – создать интерпретатор для такой структуры файлов. Ведь рерайтер – это не просто замена одиночных слов на их синонимы. Вот, например, я создал и обработку конструкций «который»:

$noun:subject , котор@ -- Эт@ $noun:derivative

* $noun:object , котор@ $verb -- * $noun , $participle:derivative-verb

Не буду объяснять, что значат эти строчки, могу только сказать, что здесь происходит замена конструкции «который» на причастный оборот. Например, предложение: «Человек, который любит подумать», заменится на: «Человек, любящий подумать».

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

После вырезки некоторых строчек кода, управляющих обработкой формул типа «который», получилось вот это:

//Анализ формулы -- это вы можете спокойно убрать, так же как и знак "%" из базы синонимов

function TFormMain.FormulaAnalyse(Formula: string): TVarStr;

var i: integer;

begin

 SetLength(Result, 0);

 SetLength(Result, 1);

 for i := 1 to Length(Formula) do

 begin

  if Formula = ' ' then

  begin

   SetLength(Result, Length(Result) + 1);

   Continue;

  end;
  Result[Length(Result)-1] := Result[Length(Result)-1] + Formula;

 end;

end;
//Это просто проверка символа на причастность к алфавиту   т.е. буква ли это

function TFormMain.InAlphabet(Symbol: char; upper: boolean): boolean;

var i: integer;

begin

 Result := false;

 for i := 0 to 32 do

  if upper then

  begin

   if AnsiUpperCase(Alphabet) = Symbol then

   begin

    Result := true; Exit;

   end;

  end else

  begin

   if Alphabet = Symbol then //На всякий случай: Alphabet - это массив из литер

   begin

    Result := true; Exit;

   end;

  end;

end;
//Сама процедура генерации синонимизированного текста

procedure TFormMain.SentencesGenerate;

var

 i, j, o, y, u: integer;

 AnalyseFile: TStrings;

 Formula: string;

 FormComp: TVarStr;

 SentComp: TVarStr;

 Synonims: TVarStr;

 s: string;

 c: char;

 n: integer;

 check_f: boolean;

label l;

begin

 AnalyseFile := TStringList.Create;

 try

  AnalyseFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Data\Syn_Words.txt');

  Formula := AnalyseFile[0];
  FormComp := FormulaAnalyse(Formula);
  for i := 0 to Length(Sentences) - 1 do

  begin

   SentComp := SentenceAnalyse(Sentences);
   for j := 0 to Length(FormComp) - 1 do

   begin

    if FormComp[j] = '%' then

    begin

     for o := 0 to Length(SentComp) - 1 do

     begin

      s := '';
      for y := 1 to AnalyseFile.Count - 1 do

      begin

       Synonims := SynonimsAnalyse(AnalyseFile[y]);

       for u := 0 to Length(Synonims) - 1 do

       begin

        if Synonims = SentComp[o] then

        begin

         l: n := Random(Length(Synonims));
         if Synonims[n] = SentComp[o] then goto l

         else s := Synonims[n];

         Break;

        end;

       end;

      end;
      if s <> '' then memGen.Text := memGen.Text + ' ' + s

      else begin

       if Length(SentComp[o]) = 1 then

       begin

        c := SentComp[o][1];

        if (not InAlphabet(c, False)) and (not InAlphabet(c, true)) then

         memGen.Text := memGen.Text + SentComp[o]

        else memGen.Text := memGen.Text + ' ' + SentComp[o];

       end

       else memGen.Text := memGen.Text + ' ' + SentComp[o];

      end;

     end;

    end;

   end;

  end;
  memGen.Text := Trim(memGen.Text);

 finally

  AnalyseFile.Free;

  SetLength(FormComp, 0);

  SetLength(SentComp, 0);

  SetLength(Synonims, 0);

 end;

end;
//Анализ предложения; идет разбивка на слова и пунктуационные знаки

function TFormMain.SentenceAnalyse(Sentence: string): TVarStr;

var i: integer;

begin

 SetLength(Result, 0);

 SetLength(Result, 1);
 for i := 1 to Length(Sentence) do

 begin

  if Sentence = ' ' then

  begin

   SetLength(Result, Length(Result) + 1);

   Continue;

  end;
  if (not InAlphabet(Sentence, false)) and (not InAlphabet(Sentence, true)) then

  begin

   SetLength(Result, Length(Result) + 1);

   Result[Length(Result)-1] := Sentence;

   SetLength(Result, Length(Result) + 1);

   Continue;

  end;
  Result[Length(Result)-1] := Result[Length(Result)-1] + Sentence;

 end;

end;
//Анализ базы синонимов; идет разбивка на слова-синонимы

function TFormMain.SynonimsAnalyse(Synonims: string): TVarStr;

var i: integer;

begin

 SetLength(Result, 0);

 SetLength(Result, 1);

 for i := 1 to Length(Synonims) do

 begin

  if Synonims = '|' then

  begin

   SetLength(Result, Length(Result) + 1);

   Continue;

  end;
  Result[Length(Result)-1] := Result[Length(Result)-1] + Synonims;

 end;

end;
//Анализ текста; идет разбивка на предложения

procedure TFormMain.TextAnalysis;

var

 i: integer;

 NewSentence: boolean;

begin

 memText.Text := Trim(memText.Text);
 NewSentence := true;

 SetLength(Sentences, 0);

 for i := 1 to Length(memText.Text) do

 begin

  if NewSentence then SetLength(Sentences, Length(Sentences) + 1);

  Sentences[Length(Sentences)-1] := Sentences[Length(Sentences)-1] + memText.Text;

  if (memText.Text = '.') and ((i = Length(memText.Text)) or (InAlphabet(memText.Text, true))) then

   NewSentence := true

  else NewSentence := false;

 end;

end;
//При нажатии на кнопку генерации синонимизированного текста.

procedure TFormMain.bt_GenerateClick(Sender: TObject);

begin

 memGen.Clear;
 TextAnalysis;

 SentencesGenerate;

end;

Код меняйте под свои нужды. Но вопросов по его работе задавать не стоит. Отвечать не буду. Во всем можете разобраться сами.

Прикреплю вам испытательный полигон для опытов.

P.S. Генерация происходит при нажатии второй «безкартиночной» кнопки на toolbar’е

Syn.rar (219.2 Кб)

тема на форуме

procedure TForm1.Memo1Change(Sender: TObject);

begin

  if Tag > 0 then

  begin

    Memo1.SelStart := Tag;

    Memo1.SelLength := Abs(Length(Memo1.Text) - Tag);

    Label2.Caption := Memo1.SelText;

    Memo1.SelStart := Length(Memo1.Text);

  end;

end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

  if Key = #32 then Tag := Memo1.SelStart;

end;

imlist.rar (169.5 Кб)

тема на форуме

for i:=0 to StringGrid1.RowCount - 1 do

   for j:=0 to StringGrid1.ColCount - 1 do

      A := StrToFloat( StringGrid1.Cells[ j, i ];

тема на форуме