ファイル化したメールを表示するには？ (ID：1892)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Cの考え通りに上の方で関数の型を定義して下の方で
その関数の定義を行っています。(C言語もやっているので)
  private
    { Private 宣言 }
    {中略}
    procedure UidlDelete(NowUidl, SavedUidl: TStringList);
    procedure UidlSplit(Line: string; var no, Uidl: string);

関数の実体はend.より上の部分で定義をしています

// UIDLを削除する
procedure UidlDelete(NowUidl, SavedUidl: TStringList);
var
  i, j: integer;
  no1, Uidl1: string;
  no2, Uidl2: string;
begin
  for i := NowUidl.Count - 1 downto 0 do
  begin
    UidlSplit(NowUidl[i], no1, Uidl1);
    for j := 0 to savedUidl.Count - 1 do
    begin
      UidlSplit(SavedUidl[j], no2, Uidl2);
      if Uidl1 = Uidl2 then
      begin
        NowUidl.Delete(i);
        break;
      end;
    end;
  end;
end;
                
// UIDLのリスト表示の１行を切り分ける(例123 AAAAAを、no=123, Uidl=AAAAAに切り分ける)
procedure UidlSplit(Line: string; var no, Uidl: string);
var
  p: integer;
begin
  p := Pos(' ', Line);
  if p = 0 then
  begin
    // 半角スペースがない
    no := '';
    Uidl := Line;
  end
  else
  begin
    no   := Trim(Copy(Line, 1, p));
    Uidl := Trim(Copy(Line, p, Length(Line)));
  end;
end;

end.

やはりこれでは動かないのでしょうか？
その場合はどの辺りまでこの関数を上に移動すればよいでしょうか？
昔こういうのをやっても確かエラーは出ませんでした。

#include <stdio.h>

int plus(int, int);

int main(void){
   int x, y, z;

x = 1;
   y = 2;
   z = plus(x, y);

printf("%d+%d=%d\n", x, y, z);

return(0);
}

int plus(int a, int b){
   return(a + b);
}

←解決時は質問者本人がここをチェックしてください。

戻る