ahoi
Ich möchte einfach 5 Zahlen/Strings in eine Datei (test.txt) schreiben, wobei jede Zahl/String durch einen eigenen Thread in diese Datei geschrieben werden soll.
Hier mein Versuch:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
function WriteStringInFile( p: pchar ):integer; stdcall;
var
f: textfile;
begin
AssignFile( f, 'test.txt' );
Append(f);
writeln( f, p );
CloseFile(f);
end;
var
s: string;
i: integer;
TID: DWORD;
begin
for i:=0 to 4 do
begin
s := IntToStr( i );
TID := 123+i;
CreateThread(nil, 0, @WriteStringInFile, pchar(s), 0, tid);
end;
end;
Das Ergebnis in der Datei ist leider immer:
4
3
4
3
4
Wo liegt mein Fehler?
