lazarus

-1열

1답변

파일 내용을 AnsiString 변수로 읽는 코드입니다. var c:char; f:file of char; s:ansistring; begin assign(f,'file'); reset(f); s:=''; while not eof(f) do begin read(f

0열

1답변

왜 내 단추 클릭 이벤트 처리기가 예상 한대로 작동하지 않습니까?

그래서이 forum에 블랙 잭 소스 코드를 발견했지만 작동하게하는 데 문제가 있습니다. 코드에 대한 양식을 직접 작성 했으므로 이것이 문제라고 생각합니다. "새 버튼"을 클릭하면 게임이 시작되지만 클릭하면 아무 일도 발생하지 않습니다. 내가 실수를 마 'DOIT'나는 새로운 히트를 설정하고 프로 시저를 실행 버튼을 서 unit Unit1; {$mode

0열

1답변

라자루를 사용하여 라즈베리에 공유 라이브러리를 빌드하십시오.

라자루를 사용하여 나무 딸기 파이 (모델 3B)에 사용할 공유 라이브러리를 빌드하려고합니다. 일부 난처한 후에 나는 원래 라이브러리가 제대로 작동하지 않아서 this 예제를 사용하여 매우 간단한 라이브러리로 전환한다는 것을 알게되었습니다. 그러나이 간단한 라이브러리조차도 제대로 컴파일되지 않습니다. 내가 실행할 수있는 다음의 진단을 발견 몇 가지 조사 후

0열

1답변

나사로 십자가 리눅스에서 이기기 위해 컴파일

나는 리눅스 (우분투)에서 lazarus 프로젝트를 만들었고 windows 용 .exe 파일이 필요하다. 내가 어떻게 할 수 있을까?

-1열

1답변

양식 생성시 포커스를 설정하는 방법

일부 '검색'단축키, F1 ~ F4를 사용하여 데이터베이스의 다른 테이블을 검색하는 작은 응용 프로그램을 만들므로 검색을 유지할 TPageControl을 만들었습니다 필드 및 또한 결과를 표시하므로 1 PageControl 및 4 탭 시트가 있지만 적절한 검색 필드에 포커스를 설정하려면 하나의 문을 넣으려고 해요 및 TPageControl OnShow 이벤

0열

1답변

TTrayIcon에서 그리는 방법

나는 TTrayIcon의 캔버스에 그리려하고 있지만 성공하지는 못했습니다. procedure TForm1.TrayIcon1Paint(Sender: TObject); var tmpcanvas: TCanvas; begin tmpcanvas := TrayIcon1.Canvas; tmpcanvas := TrayIcon1.Icon.Ca

1열

2답변

파스칼에서 열거 형의 항목 수를 얻는 방법?

program Enumeration; uses crt; type beverage = (coffee, tea, milk, water, coke, limejuice); var drink:beverage; begin`enter code here` writeln('Which drink do you want?');

-1열

1답변

Delphi/Lazarus Filter DateTimePicker를 사용하는 SQL 쿼리로 MSAccess 데이터

MS Access에서 데이터를 필터링하여 LazReport에 가져오고 싶습니다. 몇 가지 코드 조합을 시도했지만 그 중 아무 것도 작동하지 않았습니다. 나는 여전히 "데이터 유형이 크리 테리아 표현과 동일하지 않다"라는 오류가 발생합니다. MS Access 필드는 Short Date (01.01.2017) 형식의 날짜/시간으로 설정됩니다. DateTimeP

0열

1답변

SQLlite 두 개의 테이블 열을 나누어서 새 테이블에 출력하는 알고리즘

저는 SQL에 익숙하지 않으며 나사로와 언어 파스칼에서 데이터베이스를 만들었습니다. 현재 SQLlite3을 사용하고 있습니다. 지금까지 나는 비즈니스의 현재 자산과 부채 (정수)가있는 데이터베이스를 만들었지 만이 두 숫자를 나눌 수 있고이 두 숫자의 "비율"나누기를 새 테이블에 입력하는 알고리즘을 만들어야합니다. 어떤 도움을 주시면 감사하겠습니다. 많은 감

0열

2답변

Lazarus에서 링크 버튼을 만드는 방법은 무엇입니까?

단추로 하이퍼 링크를 만들고 싶습니다. 버튼을 클릭하면 기본 브라우저가 링크를 엽니 다. 나는 Delphi 버전으로 시도했지만 Lazarus에서는 작동하지 않습니다. 여기에 내가 시도한 코드가있다. Lazarus 버전에서는 어떻게 만들 수 있습니까? Uses ShellApi begin ShellExecute (0, 'Open', 'link websit