Hi,
Using FPC 2.6.1 and Laz trunk on Windows, there is a better way to not to
do such codes below?
Examples
1- I'm on the LCL and I have an Edit (edtFileName):
var
lFileName: string;
lStrings: TStrings;
begin
lStrings := TStrings.Create;
try
lFileName := Utf8ToSys(edtFileName.Text);
lStrings.SaveToFile(lFileName);
finally
lStrings.Free;
end;
end;
2- If I want to add the path delimiter using an Edit (edtPath)
var
lPath: string;
begin
lPath :=
SysToUtf8(IncludeTrailingPathDelimiter(Utf8ToSys(edtPath.Directory)));
edtPath.Directory := lPath;
end;
Marcos Douglas
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
