1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

Procedure FindFiles (aPath, aFindMask: String; aWithSub: Boolean; aResult: tStrings);
Var
  FindRec: tSearchRec;
Begin

  If (aPath = '') or (aFindMask = '') or Not Assigned (aResult) Then
    Exit;


  If aPath[Length (aPath)] <> '\' Then
    aPath := aPath + '\';


  If FindFirst (aPath + aFindMask, faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then

        aResult.Add (aPath + FindRec.Name);

    Until FindNext (FindRec) <> 0;

  FindClose (FindRec);


  If Not aWithSub Then
    Exit;


  If FindFirst (aPath + '*.*', faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
        If Boolean (FindRec.Attr and faDirectory) Then
          FindFiles (aPath + FindRec.Name, aFindMask, aWithSub, aResult);
    Until FindNext (FindRec) <> 0;

   FindClose (FindRec);
End;

procedure TForm1.FormActivate(Sender: TObject);
begin
AssignFile(Waypoint,WPpath+'WP'+Dateiname[1]+'.wap');
Reset(Waypoint);
try
ReadLn(Waypoint, WP_XS);
WP_XS := copy(WP_XS, pos('=', WP_XS), length(WP_XS));
ReadLn(Waypoint, WP_XS);
WP_YS := copy(WP_YS, pos('=', WP_YS), length(WP_YS));
finally
CloseFile(Waypoint);
DNA[2] := DNA[2]+1;
WP_Mar.Left := strtoint(WP_Xs);
WP_Mar.Height := strtoint(WP_Ys);
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  FileContents: TStringList;
begin
  FileContents := TStringList.Create;
  try
    FileContents.LoadFromFile...
    ShowMessage(FileContents.Values['X']);
    ShowMessage(FileContents.Values['Y']);
    ...
  finally
    FileContents.Free;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  MyFileList: TStringList;
begin
  MyFileList := TStringList.Create;
  try
    FindFiles('c:\...', '*.wap', False, MyFileList);
    for i := 0 to MyFileList.Count - 1 do
    begin
      // Mach was mit der Datei MyFileList[i]
    end;
  finally
    MyFileList.Free;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.FormShow(Sender: TObject);
begin
var
  MyFileList: TStringList;
begin
  MyFileList := TStringList.Create;
  try
    FindFiles( WPpath,'*.wap', False, MyFileList);
    for i := 0 to MyFileList.Count - 1 do
    begin
      // Mach was mit der Datei MyFileList[i]
      Dateiname[i] := MyFileList[i];
    end;
  finally
    MyFileList.Free;
  end;
end;

for i:=i++ do
  begin
  end

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  MyFileList := TStringList.Create;
  try
    FindFiles(WPpath, '*.wap', False, MyFileList);
    for i := 0 to MyFileList.Count - 1 do
    begin
      // Mach was mit der Datei MyFileList[i]
      AssignFile(MyFile, MyFileList[i]);

    end;
  finally
    MyFileList.Free;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.FormShow(Sender: TObject);
begin
  MyFileList := TStringList.Create;
  try
    FindFiles(WPpath, '*.wap', False, MyFileList);
    for i := 0 to MyFileList.Count - 1 do
    begin
  FileContents := TStringList.Create;
  try
    FileContents.LoadFromFile(MyFileList[i]);
    X:=FileContents.Values['X'];
    Y:=FileContents.Values['Y'];
  finally
    FileContents.Free;
  end;

    end;
  finally
    MyFileList.Free;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.FormShow(Sender: TObject);
var
  X, Y: Integer;
begin
  MyFileList := TStringList.Create;
  try
    FindFiles(WPpath, '*.wap', False, MyFileList);
    for i := 0 to MyFileList.Count - 1 do
    begin
      FileContents := TStringList.Create;
      try
        FileContents.LoadFromFile(MyFileList[i]);
        X := StrToInt(FileContents.Values['X']);
        Y := StrToInt(FileContents.Values['Y']);
        
        // Testweise:
        EditX.Text := IntToStr(X);
      finally
        FileContents.Free;
      end;
    end;
  finally
    MyFileList.Free;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.FormShow(Sender: TObject);
begin
  MyFileList := TStringList.Create;
  try
    FindFiles(WPpath, '*.wap', False, MyFileList);
    for i := 0 to MyFileList.Count - 1 do
    begin
  FileContents := TStringList.Create;
  try
    FileContents.LoadFromFile(MyFileList[i]);
    X:=FileContents.Values['X'];
    Y:=FileContents.Values['Y'];
  finally
    FileContents.Free;
  end;

    end;
  finally
    MyFileList.Free;
  end;

Ma_Pos_Mes_Ed.Text := x;                    

1:

WPpath := ExtractFilePath(Application.Exename);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  MyImage: TImage;
begin
  MyImage := TImage.Create(Self);
  MyImage.Parent := Self;
  MyImage.Left := X;
  MyImage.Top := Y;
  MyImage.Height := ...
  MyImage.LoadFromFile... // oder aus einem mitgelieferten Bild aus einem anderen Image oder so.
  ...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

TForm2 = class...
...
public
  MyField: Boolean;
end;

// im ersten Formular:

...
Form2.MyField := True;
Form2.Show;
...