opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix compiler warnings due to usage of deprecated AnsiStrings functions

Browse Source
This commit is contained in:
Ansgar Becker
2014-03-25 10:19:15 +00:00
parent 5bc6ae878b
commit bd3fb7771c
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/Plinkremote.pas
View File

@@ -19,7 +19,7 @@ unit Plinkremote;
interface
uses
Windows, StrUtils, SysUtils, Classes, Controls, Forms, Dialogs, UPipeThread, gnugettext;
Windows, StrUtils, SysUtils, Classes, Controls, Forms, Dialogs, UPipeThread, gnugettext, AnsiStrings;
const
LINE_FEED = #10;
@@ -238,14 +238,14 @@ const cMaxLength = 255;
var PText : PAnsiChar;
begin
Result:='';
PText:=AnsiStrAlloc(cMaxLength);
PText:=AnsiStrings.AnsiStrAlloc(cMaxLength);
while AText <> '' do begin
StrPCopy(PText, copy(AText, 1, cMaxLength-1));
AnsiStrings.StrPCopy(PText, copy(AText, 1, cMaxLength-1));
OemToAnsi(PText, PText);
Result:=Result + StrPas(PText);
Result:=Result + AnsiStrings.StrPas(PText);
delete(AText, 1, cMaxLength-1);
end;
StrDispose(PText);
AnsiStrings.StrDispose(PText);
end;
function TPlinkRemote.ReadPipe(const APipe: TPipe): String;